Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re^3: A different OO approach

by adrianh (Chancellor)
on Dec 15, 2002 at 16:39 UTC ( #220023=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    package Inc;
    use base 'OO';
    ...
        my $self = shift;
        $self->oo_get('inc', 'Inc');
    };
    
  2. or download this
    {
        package Inc;
    ...
        
        # ... no way to get at %Value here ...
    };
    
  3. or download this
    sub next {
        my $self = shift;
    ...
        $self->oo_set('incc', ++$next);
        return($next);
    };
    
  4. or download this
        sub next {
            ++$Valuee{+shift};
        };
    
  5. or download this
    package AppointmentDate;
    use base qw(OO Date::Simple);
    ...
        $self->oo_set('appointment', $appointment) if $appointment;
        return( $self->oo_get('appointment') );
    };
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (5)
As of 2014-07-28 07:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (192 votes), past polls