[p5sagit/Class-C3-Componentised.git] / 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;
Commit	Line	Data
c7e9a452	1	package # hide from pause
c7e9a452	2	MyModule::OwnComponent;
dae1b1a5	3	use strict;
dae1b1a5	4	use warnings;
c7e9a452	5
374af1a5	6	use MRO::Compat;
374af1a5	7	use mro 'c3';
c7e9a452	8
	9	sub message {
	10	my $self = shift;
	11
	12	return join(" ", "OwnComponent", $self->next::method);
	13	}
	14
	15	1;