This isn't quite what you asked, since you wanted to save the byte code. But assuming B::Deparse isn't bulletproof, how about saving the source code instead?

new ObjectName(
    codeStr => 'sub { do some perl stuff with @_ }'
);

package ObjectName;

#...

sub new {
    #...., not forgetting to set $self->{codeStr} from args
    $self->{code}=eval $self->{codeStr};
}

#...
[download]

You'd have to serialize codeStr and then eval it when you load, but you won't be able to escape that anyhow, I think.