Query/Element/LV.pm

##  --------------------------------------------------------------------------------
##  $Id: LV.pm,v 1.1 2002/12/27 16:03:58 joko Exp $
##  --------------------------------------------------------------------------------
##  $Log: LV.pm,v $
##  Revision 1.1  2002/12/27 16:03:58  joko
##  + initial check-in
##
##  --------------------------------------------------------------------------------


package Data::Query::Element::LV;

use strict;
use warnings;

use base 'DesignPattern::Object';
use base 'DesignPattern::Object::Logger';


use Data::Dumper;

sub _init {
  my $self = shift;
  # get single argument already stuffed from designpattern-base-object (hopefully)
  $self->{value} = $self->{__arg};
  delete $self->{__arg};
}

sub __check {
  my $self = shift;
  if (!defined $self->{value}) {
    return;
  }
  return 1;
}

sub eq {
  my $self = shift;
  my $val = shift;
  return if !$self->__check();
  return 1 if $self->{value} eq $val;
}

sub value {
  my $self = shift;
  return $self->{value};
}

sub toString {
  my $self = shift;
  my $val = $self->value();
  $val ||= '';
  return $val;
}

sub undefined {
  my $self = shift;
  my $val = $self->value();
  return !($val);
}

sub set {
  my $self = shift;
  return $self->{value} = shift;
}

sub get {
  my $self = shift;
  return $self->value();
}

1;
1	## --------------------------------------------------------------------------------
2	## $Id: LV.pm,v 1.1 2002/12/27 16:03:58 joko Exp $
3	## --------------------------------------------------------------------------------
4	## $Log: LV.pm,v $
5	## Revision 1.1 2002/12/27 16:03:58 joko
6	## + initial check-in
7	##
8	## --------------------------------------------------------------------------------
9
10
11	package Data::Query::Element::LV;
12
13	use strict;
14	use warnings;
15
16	use base 'DesignPattern::Object';
17	use base 'DesignPattern::Object::Logger';
18
19
20	use Data::Dumper;
21
22	sub _init {
23	my $self = shift;
24	# get single argument already stuffed from designpattern-base-object (hopefully)
25	$self->{value} = $self->{__arg};
26	delete $self->{__arg};
27	}
28
29	sub __check {
30	my $self = shift;
31	if (!defined $self->{value}) {
32	return;
33	}
34	return 1;
35	}
36
37	sub eq {
38	my $self = shift;
39	my $val = shift;
40	return if !$self->__check();
41	return 1 if $self->{value} eq $val;
42	}
43
44	sub value {
45	my $self = shift;
46	return $self->{value};
47	}
48
49	sub toString {
50	my $self = shift;
51	my $val = $self->value();
52	$val \|\|= '';
53	return $val;
54	}
55
56	sub undefined {
57	my $self = shift;
58	my $val = $self->value();
59	return !($val);
60	}
61
62	sub set {
63	my $self = shift;
64	return $self->{value} = shift;
65	}
66
67	sub get {
68	my $self = shift;
69	return $self->value();
70	}
71
72	1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26