Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Things I Don't Use in Perl

by Ovid (Cardinal)
on Aug 23, 2005 at 15:47 UTC ( #485945=perlmeditation: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    sub name :lvalue { shift->name }
    
    # and later
    
    $object->name = 
      [qw/ random unvalidated value which breaks encapsulation /];
    
  2. or download this
    sub name {
      my $self = shift;
      return $self->{name} unless @_;
      $self->{name} = shift;
      return $self;
    }
    
  3. or download this
    sub set_name {
      my $self = shift;
      croak "set_name() requires a name, silly!" unless @_;
      $self->{name} = shift; # insert other validation here
    }
    
  4. or download this
    $object->name($name);
    $object->age($age);
    $object->id($id); # huh?
    
  5. or download this
    $object->set_name($name);
    $object->set_age($age);
    $object->set_id($id); # huh?
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlmeditation [id://485945]
Approved by Arunbear
Front-paged by Arunbear
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (8)
As of 2014-11-27 00:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (178 votes), past polls