Select Code to Download

#!perl -w
use strict;
...
$mech->get_local("t/52-frameset.html");
print for map { $mech->content( document => $_) }
    $mech->expand_frames('frame[name="myframe1"]');

    my $d = $self->document; # keep a reference to it!

    my $d = delete $options{ document } || $self->document; # keep a r
+eference to it!