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

package # hide from pause
  MyModule::Plugin::Foo;

use Class::C3;

sub message { 
  $DB::single = 1;
  join(" ", "Foo", shift->next::method) 
}

1;
Commit	Line	Data
c7e9a452	1	package # hide from pause
	2	MyModule::Plugin::Foo;
	3
	4	use Class::C3;
	5
	6	sub message {
	7	$DB::single = 1;
	8	join(" ", "Foo", shift->next::method)
	9	}
	10
	11	1;