The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Mock::Plugin::Object2;
use strict;
use warnings;
use base 'Qudo::Plugin';

sub plugin_name { 'object2' }

sub load {
    my ($class, $option) = @_;
    $class->register(
        MyObj2->new($option)
    );
}

package MyObj2;
sub new {
    my ($class, $option) = @_;
    bless $option, $class;
}
sub call {
    my $self = shift;
    print STDOUT $self->{foo};
}

1;