-
use strict;
use warnings;
use Test::More tests => 4;;
use local::lib ();
-
my $c = 'local::lib';
-
{
-
-is($c->resolve_empty_path, '~/perl5');
-is($c->resolve_empty_path('foo'), 'foo');
-
+ is($c->resolve_empty_path, '~/perl5');
+ is($c->resolve_empty_path('foo'), 'foo');
}
{
-
-no warnings 'once';
-local *File::Spec::rel2abs = sub { shift; 'FOO'.shift; };
-is($c->resolve_relative_path('bar'),'FOObar');
-
+ no warnings 'once';
+ local *File::Spec::rel2abs = sub { shift; 'FOO'.shift; };
+ is($c->resolve_relative_path('bar'),'FOObar');
}
{
-
-File::Path::rmtree('t/var/splat');
-
-$c->ensure_dir_structure_for('t/var/splat');
-
-ok(-d 't/var/splat');
-
+ File::Path::rmtree('t/var/splat');
+ $c->ensure_dir_structure_for('t/var/splat');
+ ok(-d 't/var/splat');
}
-
use strict;
use warnings;
use Test::More tests => 1;
use local::lib ();
{
+ package local::lib;
-package local::lib;
-
-{ package Foo; sub foo { -$_[1] } sub bar { $_[1]+2 } sub baz { $_[1]+3 } }
-my $foo = bless({}, 'Foo');
-Test::More::ok($foo->${pipeline qw(foo bar baz)}(10) == -15);
-
+ { package Foo; sub foo { -$_[1] } sub bar { $_[1]+2 } sub baz { $_[1]+3 } }
+ my $foo = bless({}, 'Foo');
+ Test::More::ok($foo->${pipeline qw(foo bar baz)}(10) == -15);
}