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

sub plugin_name { 'object' }

sub load {
    my $class = shift;
    $class->register(
        MyObj->new
    );
}

package MyObj;
sub new {
    my $class = shift;
    bless {}, $class;
}
sub stdout {
    my ($self, $val) = @_;
    print STDOUT $val;
}

1;