1package My::Class;
2
3use Badger::Class
4    version  => 3.14,
5    uber     => 'Badger::Class',
6    hooks    => 'wibble wobble',
7    import   => 'CLASS',
8    constant => {
9        CONSTANTS => 'My::Constants',
10    };
11
12sub wibble {
13    my ($self, $value) = @_;
14    $self->method( wibble => sub { "wibble: $value" } );
15}
16
17sub wobble {
18    my ($self, $value) = @_;
19    $self->method( wobble => sub { "wobble: $value" } );
20}
21
22sub my_class_class {
23    CLASS
24}
25
26
271;
28