Parent Directory | Revision Log | Patch
revision 81 by dpavlin, Fri Apr 11 23:22:03 2008 UTC | revision 82 by dpavlin, Sat Apr 12 10:28:38 2008 UTC | |
---|---|---|
# | Line 93 sub AUTOLOAD { | Line 93 sub AUTOLOAD { |
93 | my $type = ref($self) or die "$self is not an object"; | my $type = ref($self) or die "$self is not an object"; |
94 | my $name = $AUTOLOAD; | my $name = $AUTOLOAD; |
95 | $name =~ s/.*://; | $name =~ s/.*://; |
96 | # warn "SQL: $name doesn't exist" unless defined($self->{$name}); | |
97 | return decode('UTF-8', $self->{$name}); | return decode('UTF-8', $self->{$name}); |
98 | } | } |
99 | ||
100 | sub DESTROY {} | |
101 | ||
102 | 1; | 1; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |