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