Help for this page

Select Code to Download


  1. or download this
    Line 16:
      verbose => $arg{verbose} ? '' : "\n",
...
--          post => $self->_gen_wrapper( $self->{post}, $pkg, $sym, );
++          pre => $self->_gen_wrapper( $self->{pre}, $pkg, $sym, 1 ),
++          post => $self->_gen_wrapper( $self->{post}, $pkg, $sym, 0 
+);
  2. or download this
    Line 5:
 use Hook::LexWrap;
...
++      $pkg, $sym, 
++      ( $start && $self->{params} ? '( '.join( ", ", Dumper(@_[0..$#
+_-1])).")" : ()),
++      $self->{verbose},