Help for this page
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') ); };
An Englishman in New York An American Werewolf in London An American in Paris The Innocents Abroad An Idiot Abroad Robinson Crusoe on Mars A Connecticut_Yankee in King Arthur's Court There and Back Again Travels into Several Remote Nations of the World
Results (77 votes). Check out past polls.