"Mr. Shawn H. Corey" <[EMAIL PROTECTED]> writes:
> perl -n -e "/\bargs\b/ && print" lib/Database.pm
Well I didn't learn a thing from that either:
my $args = shift;
$self->{file} = $args->{file};
$self->{is_reversed} = $args->{reversed} ? 1 : 0;
if (defined $args->{views})
$self->{viewfile} = $args->{views};
$self->{lockfile} = $args->{lockfile};
if (ref($args->{inc}) eq 'ARRAY')
$self->update_counters( @{$args->{inc}} );
$self->{sortmethod} = $args->{sort} || 'id';
Still no evidence what ever of what any of these values contain or
what they should contain. Just more heiroglyphis and undecipherable
baloney.
Is there no way to make this code spit out some real traceable values
in something close to english?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
