Help for this page

Select Code to Download


  1. or download this
    >> cat exp/t_inject.pl
use lib '../lib';
...
warn "+1 line";
warn "+2 line";
warn "$x $y";
  2. or download this
    $ perl t_inject.pl 
IMPORT(Filter::Inject 0 42) at ../lib/Filter/Inject.pm line 46.
...
+1 line at t_inject.pl line 7.
+2 line at t_inject.pl line 8.
42 0 at t_inject.pl line 9.
  3. or download this
    >> cat lib/Filter/Inject.pm
package Filter::Inject;
...
=cut

1;                # End of Filter::Inject