John W. Krahn wrote:
> Steve Bertrand wrote:
>> Hi all,
[ huge snip ]
>> ...or any variant of trying to use the method-call syntax within a
>> dispatch table coderef.
>
> How and where is _find_plan_by_id() defined?
It's defined within its own class ( ie: file/package scope).
The definition is standard, afaict. This is a 'private' function that
I've intend to have only other methods within the class call. There are
no prototypes, and the functions first order is to shift off self.
Within the 'private' function, it generates an object from a different
class, and performs operations with it.
Essentially, it's an attempt to create a hierarchy whereby I can
minimize calls to external objects to a select few internal methods of
the class. Eventually, I'll push to have the original 'perform_find()'
work with different requests and callbacks to be more flexible.
fwiw. Here is the function (internal sanity and control structures removed):
sub _find_plan_by_id {
my $self = shift;
my $search_data = shift;
my $client = ISP::User->new();
# for the astute readers, I'm just learning how to structure
# my classes to allow me to bypass the obj creation when a
# class method call will do.
# perltoot & perltooc are becoming nearly comprehensible...
my $plan = $client->get_plan( $search_data );
my $username = $plan->{ username };
$self->session->param( username => $username );
$self->session->param( planid => $search_data );
$self->forward( 'show_plan' );
}
Steve
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
