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

package # hide from pause
  MyModule::OwnComponent;

use Class::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
	4	use Class::C3;
	5
	6	sub message {
	7	my $self = shift;
	8
	9	return join(" ", "OwnComponent", $self->next::method);
	10	}
	11
	12	1;