Your IP : 216.73.216.74

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

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

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

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

  return $msg . ' ' . __PACKAGE__;
}

sub new {
  return bless {}, shift;
}

1;