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

Fun with Hook::LexWrap and code instrumentation

by adrianh (Chancellor)
on Mar 14, 2003 at 07:36 UTC ( #242974=perlmeditation: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
        package Foo;
        sub todo { shift->{todo} };
        sub done { shift->{done} };
  2. or download this
        package Bar;
        use base qw(Foo);
  3. or download this
    # Monitor the arguments of subroutines ...
    my $monitor = monitor_arg
            warn "removed item not added to done list in $subroutine\n"
                if $removed > 0 && $removed != $done;
  4. or download this
    use Carp;
    use Storable qw(dclone);
        return \@wrappers;
  5. or download this
    my $o = Bar->new;
    my $to = Ni->new;
  6. or download this
    removed item not added to done list in Bar::naughty_remove
    removed item not added to done list in Ni::naughty_transfer

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlmeditation [id://242974]
Approved by Zaxo
Front-paged by grinder
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (6)
As of 2022-12-09 20:01 GMT
Find Nodes?
    Voting Booth?

    No recent polls found