[p5sagit/Class-C3-Componentised.git] / 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;
Commit	Line	Data
b0dd4f7b	1	package # hide from pause
b0dd4f7b	2	MyModuleNoBase;
dae1b1a5	3	use strict;
dae1b1a5	4	use warnings;
b0dd4f7b	5
	6	use base 'Class::C3::Componentised';
	7
3a23b721	8	sub message {
b0dd4f7b	9	my $msg = $_[0]->maybe::next::method() \|\| '';
3a23b721	10
b0dd4f7b	11	return $msg . ' ' . __PACKAGE__;
	12	}
	13
3a23b721	14	sub new {
b0dd4f7b	15	return bless {}, shift;
	16	}
	17
	18	1;