Select Code to Download

#Basic "InsideOut" object
#from http://perlmonks.org/index.pl?node_id=178518
...

=cut

package Data::Dumper::InsideOut;
use Data::Dumper();
...
L<Perl>, L<Class::Attributes::InsideOut>

=cut

#!perl -l
BEGIN {
...
check($bar);
check(Plain->new($bar));
__END__

# last dump from check(Plain->new($bar));
# Evaled Data::Dumper::InsideOut
...
          '-class' => 'Bar'
        }, 'Frozen::InsideOut::Class' )->Toaster()
       ], 'Plain' );