2 # originally mouse_bad.pl, reported by chocolateboy (RT #54203)
4 use constant HAS_PATH_CLASS => eval{ require Path::Class };
5 use Test::More HAS_PATH_CLASS ? (tests => 4) : (skip_all => 'Testing with Path::Class');
10 use Path::Class qw(file);
19 my $path1 = file($0)->stringify;
20 ::ok(defined $path1, 'file($0)->stringify');
22 $self->path(file($0)->stringify);
23 my $path2 = $self->path();
24 ::ok(defined $path2, '$self->path(file($0)->stringify)');
26 my $path3 = $self->path(file($0)->stringify);
27 ::ok(defined $path3, 'my $path3 = $self->path(file($0)->stringify)');
32 my $object = MyClass->new();
33 ok defined($object->path);