[p5sagit/Class-C3-Componentised.git] / t / lib / MyModule / OwnComponent.pm

package # hide from pause
  MyModule::OwnComponent;

use MRO::Compat;
use mro 'c3';

sub message {
  my $self = shift;

  return join(" ", "OwnComponent", $self->next::method);
}

1;
Commit	Line	Data
c7e9a452	1	package # hide from pause
	2	MyModule::OwnComponent;
	3
374af1a5	4	use MRO::Compat;
374af1a5	5	use mro 'c3';
c7e9a452	6
	7	sub message {
	8	my $self = shift;
	9
	10	return join(" ", "OwnComponent", $self->next::method);
	11	}
	12
	13	1;