=================================================================== RCS file: /cvs/HOPE/Net-OpenAMD/lib/Net/OpenAMD.pm,v retrieving revision 1.14 retrieving revision 1.15 diff -u -r1.14 -r1.15 --- HOPE/Net-OpenAMD/lib/Net/OpenAMD.pm 2010/06/30 19:45:42 1.14 +++ HOPE/Net-OpenAMD/lib/Net/OpenAMD.pm 2010/06/30 20:02:48 1.15 @@ -1,6 +1,6 @@ package Net::OpenAMD; -# $AFresh1: OpenAMD.pm,v 1.13 2010/06/30 05:30:17 andrew Exp $ +# $AFresh1: OpenAMD.pm,v 1.14 2010/06/30 18:45:42 andrew Exp $ use warnings; use strict; @@ -20,7 +20,7 @@ { my @attr_refs - = \( my %base_uri_of, my %ua_of, my %auth_of, my %helpers_of ); + = \( my %base_uri_of, my %ua_of, my %auth_of, my %actions_of ); sub new { my ( $class, $options ) = @_; @@ -33,13 +33,13 @@ $base_uri_of{$ident} = $options->{base_uri} || $BASE_URI; $ua_of{$ident} = $options->{ua} || LWP::UserAgent->new(); - $helpers_of{$ident} = $options->{helpers} + $actions_of{$ident} = $options->{actions} || [qw( location speakers talks interests users )]; - foreach my $helper ( @{ $helpers_of{$ident} } ) { + foreach my $action ( @{ $actions_of{$ident} } ) { ## no critic no strict 'refs'; - *{$helper} = sub { shift->get( $helper, @_ ) }; + *{$action} = sub { shift->get( $action, @_ ) }; } # XXX Authenticate @@ -173,7 +173,7 @@ =back -Unless specified, there is nothing different about any of the helper methods +Unless specified, there is nothing different about any of the action methods than just calling get($action) instead. Depending on API changes, this may not always be the case.