use warnings;
use Test::More;
-BEGIN {
- plan skip_all =>
- "This test requires Class::Method::Modifiers or Class::Method::Modifiers::Fast"
- unless eval {
- require Class::Method::Modifiers::Fast;
- } or eval {
- require Class::Method::Modifiers;
- };
-}
-
# functions to capture the output of the tutorial
our $DUMMY_STDOUT = "";
sub dprint { $DUMMY_STDOUT .= join "", @_ };
$talking->color("grey"); # sets the color
$talking->speak; # says "Mr. Ed goes neigh"
-TODO: { local $TODO = "this currently fails because of a bug in Class::Method::Modifiers (see RT #42992)";
is stdout, <<EXPECTED;
Mr. Ed goes neigh
EXPECTED
is stdout, <<EXPECTED;
Baab goes baaaah
EXPECTED
- }
#use MouseA
my $mickey = MouseA->new(name => 'Mickey');