]> git.vpit.fr Git - perl/modules/VPIT-TestHelpers.git/commitdiff
Add some spacing
authorVincent Pit <vince@profvince.com>
Wed, 30 Jan 2013 15:57:11 +0000 (13:57 -0200)
committerVincent Pit <vince@profvince.com>
Wed, 30 Jan 2013 15:57:11 +0000 (13:57 -0200)
lib/VPIT/TestHelpers.pm

index 42ff1897e3a869c6f79028347bc6f4784cad5425..8e056293f5ab422177c0b0fe65a4a4c9bf423a44 100644 (file)
@@ -10,6 +10,7 @@ my %exports = (
 
 sub import {
  my $pkg = caller;
+
  while (my ($name, $code) = each %exports) {
   no strict 'refs';
   *{$pkg.'::'.$name} = $code;
@@ -18,6 +19,7 @@ sub import {
 
 my $test_sub = sub {
  my $sub = shift;
+
  my $stash;
  if ($INC{'Test/Leaner.pm'}) {
   $stash = \%Test::Leaner::;
@@ -25,6 +27,7 @@ my $test_sub = sub {
   require Test::More;
   $stash = \%Test::More::;
  }
+
  my $glob = $stash->{$sub};
  return $glob ? *$glob{CODE} : undef;
 };
@@ -46,6 +49,7 @@ sub load_or_skip {
  if (eval "use $spec (); 1") {
   $ver = do { no strict 'refs'; ${"${pkg}::VERSION"} };
   $ver = 'undef' unless defined $ver;
+
   if ($imports) {
    my @imports = @$imports;
    my $caller  = (caller 0)[0];