71 |
$self ? return $self : return undef; |
$self ? return $self : return undef; |
72 |
} |
} |
73 |
|
|
74 |
=head2 AUTOLOAD |
=head2 update_list_email |
75 |
|
|
76 |
Returns class from L<Class::DBI>. |
Update list e-mail address |
77 |
|
|
78 |
my $lists = $nos->lists; |
$noc->update_list_email($list, 'foobar@example.com'); |
79 |
|
|
80 |
is equivalent to: |
=cut |
81 |
|
|
82 |
my $lists = $loader->find_class('lists'); |
sub update_list_email { |
83 |
|
my $self = shift; |
84 |
|
|
|
=cut |
|
85 |
|
|
86 |
#sub AUTOLOAD { |
} |
|
# return if $AUTOLOAD =~ m/DESTROY$/; |
|
|
# my ($name) = $AUTOLOAD =~ /([^:]+)$/; |
|
|
# |
|
|
# return $self->{'loader'}->find_class($AUTOLOAD) || |
|
|
# croak "unknown method '$AUTOLOAD' called"; |
|
|
#} |
|
87 |
|
|
88 |
=head2 send |
=head2 send |
89 |
|
|