The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# used by t/core/factory.t

package My::Extra::Wudget;

use Badger::Class
    version     => 1,
    base        => 'My::Wodget';

sub name {
    return '<< ' . $_[0]->{name} . ' >>';
}

package My::Extra::Wudgetola;

use Badger::Class
    version     => 1,
    base        => 'My::Extra::Wudget';
    
sub name {
    return '** ' . $_[0]->{name} . ' **';
}

1;