Your IP : 216.73.217.90

Current Path : /proc/thread-self/root/proc/self/root/usr/share/doc/perl-Class-C3-Componentised/t/lib/
Upload File :
Current File : //proc/thread-self/root/proc/self/root/usr/share/doc/perl-Class-C3-Componentised/t/lib/MyModule.pm

package # hide from pause
  MyModule;
use strict;
use warnings;

use base 'Class::C3::Componentised';

sub component_base_class { "MyModule::Plugin" }

sub message {
  my $msg = $_[0]->maybe::next::method() || '';

  return $msg . ' ' . __PACKAGE__;
}

sub new {
  return bless {}, shift;
}

1;