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') );
    };