Select Code to Download

    if ($realpack) { # we have a blessed ref
      $out .= ', \'' . $realpack . '\'' . ' )';
...
+        if $s->{toaster} ne '' and UNIVERSAL::can( $val, $s->{toaster
+});
      $s->{apad} = $blesspad;
    }

...
map( (UNIVERSAL::can( $_, 'Toaster') ? $_->Toaster() : $_),
  bless ( {}, 'Package::Name')
),
...

sub UNIVERSAL::Toaster { $_[0] }