+ sub new {
+ my $class = shift;
+ my $self = bless {}, ref($class) || $class;
+ $self->SUPER::_init(@_);
+ return $self;
+ }
+
+ [...]
+
+ package Bar;
+
+ sub method_that_bar_provides{
+ print qq(Hello World!\n);
+ }
+
+ sub _methods($$){
+ return qw(method_that_bar_provides);
+ }
+