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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 5125 - (download) (as text) (annotate)
Wed Jul 4 20:26:24 2007 UTC (12 years, 5 months ago) by dpvc
File size: 517 byte(s)
Use precompiled patterns for efficiency.

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

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9