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

##</code><code>##

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

##</code><code>##

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