/[cvs]/nfo/perl/libs/Data/Query/Element/LV.pm
ViewVC logotype

Diff of /nfo/perl/libs/Data/Query/Element/LV.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by joko, Fri Dec 27 16:03:58 2002 UTC revision 1.3 by joko, Thu Feb 20 18:56:19 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ##  --------------------------------------------------------------------------------  ##  --------------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.3  2003/02/20 18:56:19  joko
6    ##  renamed modules
7    ##
8    ##  Revision 1.2  2003/02/11 11:12:44  joko
9    ##  + sub get
10    ##
11  ##  Revision 1.1  2002/12/27 16:03:58  joko  ##  Revision 1.1  2002/12/27 16:03:58  joko
12  ##  + initial check-in  ##  + initial check-in
13  ##  ##
# Line 13  package Data::Query::Element::LV; Line 19  package Data::Query::Element::LV;
19  use strict;  use strict;
20  use warnings;  use warnings;
21    
22  use base 'DesignPattern::Object';  use base qw(
23  use base 'DesignPattern::Object::Logger';    DesignPattern::Object
24      DesignPattern::Logger
25    );
26    
27    
28  use Data::Dumper;  use Data::Dumper;
# Line 64  sub set { Line 72  sub set {
72    return $self->{value} = shift;    return $self->{value} = shift;
73  }  }
74    
75    sub get {
76      my $self = shift;
77      return $self->value();
78    }
79    
80  1;  1;
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed