Select Code to Download

Select or download this

#/usr/bin/perl -d
use strict;
...
use WWW::Mechanize;

my $agent = WWW::Mechanize->new();

Select or download this

bash$ perl -d sample.pl --whatever-arguments
Loading DB routines from perl5db.pl version 1.37
...
Enter h or 'h h' for help, or 'man perldebug' for more help.

main::(use_mech.pl:7):  my $foo = WWW::Mechanize::Pluggable->new();

Select or download this
```
  DB<1> use LWP::UserAgent
```

Select or download this

  DB<2> p $INC{"LWP/UserAgent.pm"}
/Users/joemcmahon/perl5/perlbrew/perls/perl-5.16.0/lib/site_perl/5.16.
+0/LWP/UserAgent.pm

Select or download this

  DB<3> f /Users/joemcmahon/perl5/perlbrew/perls/perl-5.16.0/lib/site_
+perl/5.16.0/LWP/UserAgent.pm
1   package LWP::UserAgent;
...
8:  $VERSION = "6.04";
9   
10: use HTTP::Request ();

Select or download this
```
  DB<4> /new
20: sub new
```

Select or download this

  DB<5> l
20  sub new
...
27  
28:     my $agent = delete $cnf{agent};
29:     my $from  = delete $cnf{from};

Select or download this
```
  DB<5> b 23
```

Select or download this

  DB<6> R
Warning: some settings and command-line options may be lost!
...
Enter h or 'h h' for help, or 'man perldebug' for more help.

main::(use_mech.pl:7):  my $foo = WWW::Mechanize::Pluggable->new();

Select or download this

  DB<6> c
LWP::UserAgent::new(/Users/joemcmahon/perl5/perlbrew/perls/perl-5.16.0
+/lib/site_perl/5.16.0/LWP/UserAgent.pm:23):
23:     Carp::croak("Options to LWP::UserAgent should be key/value pai
+rs, not hash reference") 
24:         if ref($_[1]) eq 'HASH'; 
  DB<6>