[system] / trunk / pg / lib / Value / Context / Flags.pm Repository:
ViewVC logotype

Annotation of /trunk/pg/lib/Value/Context/Flags.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 5125 - (view) (download) (as text)

1 : dpvc 2579 #########################################################################
2 :     #
3 :     # Implement the list of Value::Flags types
4 :     #
5 :     package Value::Context::Flags;
6 :     use strict;
7 : dpvc 5116 our @ISA = ("Value::Context::Data");
8 : dpvc 2579
9 :     sub init {
10 :     my $self = shift;
11 :     $self->{dataName} = 'flags';
12 :     $self->{name} = 'flag';
13 :     $self->{Name} = 'Flag';
14 : dpvc 5125 $self->{namePattern} = qr/[-\w_.]+/;
15 : dpvc 2579 }
16 :    
17 : dpvc 5116 sub update {} # no pattern or tokens needed
18 :     sub addToken {}
19 :     sub removeToken {}
20 : dpvc 2579
21 :     #########################################################################
22 :    
23 :     1;

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9