Select Code to Download

package Inc;
use base 'OO';
...
    my $self = shift;
    $self->oo_get('inc', 'Inc');
};

{
    package Inc;
...
    
    # ... no way to get at %Value here ...
};

sub next {
    my $self = shift;
...
    $self->oo_set('incc', ++$next);
    return($next);
};

    sub next {
        ++$Valuee{+shift};
    };

package AppointmentDate;
use base qw(OO Date::Simple);
...
    $self->oo_set('appointment', $appointment) if $appointment;
    return( $self->oo_get('appointment') );
};