ListFoo
#!/usr/bin/perl use strict; my $stuff = Todo::List->new(); $stuff->todo_push('I really need to read the docs.'); $stuff->todo_push('I will use the perldoc command.'); $stuff->todo_push('perldoc Class::MethodMaker'); while (my $todo = $stuff->todo_shift()) { print "$todo\n"; } #----------------------------------------------------------- package Todo::List; use strict; use Class::MethodMaker new_hash_init => [qw(new)], list => [qw(todo)];
In reply to Re: implementing 'push' in Class:MakeMethods
by YuckFoo
in thread implementing 'push' in Class:MakeMethods
by water
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |