Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re: Python OO v Moose v Badger

by Anonymous Monk
on Feb 06, 2013 at 13:05 UTC ( #1017416=note: print w/ replies, xml ) Need Help??


in reply to Python OO v Moose

You're not really saying anything :) but then neither am I

1

package OurClass; use Badger::Class base => 'Badger::Base', mutators => 'arg1 arg2', config => 'arg1 arg2', init_method => 'configure', methods => { printargs => sub { my $self = shift; print $self->arg1, "\n", $self->arg2, "\n"; } }, ;;;;

2

package OurClass; use parent 'Badger::Base'; sub init { my ($self, $config) = @_; $self->{ arg1 } = $config->{ arg1 }; $self->{ arg2 } = $config->{ arg2 }; return $self; } sub arg1 { @_==2 and $_[0]->{arg1}=$_[1]; $_[0]->{ arg1 } } sub arg2 { @_==2 and $_[0]->{arg2}=$_[1]; $_[0]->{ arg2 } } sub printargs { my $self = shift; print $self->arg1, "\n", $self->arg2, "\n"; }

3

$ wc OurClass.pm 11 32 271 OurClass.pm
package OurClass; use Badger::Class base => 'Badger::Base', mutators => 'arg1 arg2', config => 'arg1 arg2', init_method => 'configure', ;;;; sub printargs { my $self = shift; print $self->arg1, "\n", $self->arg2, "\n"; }


Comment on Re: Python OO v Moose v Badger
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1017416]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (5)
As of 2014-10-26 09:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (153 votes), past polls