| Current Path : /proc/thread-self/root/usr/share/doc/perl-Class-C3-Componentised/t/lib/MyModule/ |
| Current File : //proc/thread-self/root/usr/share/doc/perl-Class-C3-Componentised/t/lib/MyModule/OwnComponent.pm |
package # hide from pause
MyModule::OwnComponent;
use strict;
use warnings;
use MRO::Compat;
use mro 'c3';
sub message {
my $self = shift;
return join(" ", "OwnComponent", $self->next::method);
}
1;