view release on metacpan or  search on metacpan

t/alien_build_plugin_build_make.t  view on Meta::CPAN

          use Path::Tiny qw( path );
          my($from, $to) = map { path($_) } @ARGV;
          $to->spew('[' . $from->slurp . ']');
        });
        
        path('install.pl')->spew("#!$^X\n", q{
          use strict;
          use warnings;
          use Path::Tiny qw( path );
          my($from, $to) = map { path($_) } @ARGV;
          $to->parent->mkpath;
          $from->copy($to);
          print "copy $from $to\n";
        });
        
        path('foo.c')->spew(
          "something",
        );

      };
      build [

xt/author/version.t  view on Meta::CPAN

    unless eval q{ use Path::Class qw( file dir ); 1 };
  plan skip_all => 'test requires YAML'
    unless eval q{ use YAML; 1; };
}

use YAML qw( LoadFile );
use FindBin;
use File::Spec;

plan skip_all => "test not built yet (run dzil test)"
  unless -e dir( $FindBin::Bin)->parent->parent->file('Makefile.PL')
  ||     -e dir( $FindBin::Bin)->parent->parent->file('Build.PL');

my $config_filename = File::Spec->catfile(
  $FindBin::Bin, File::Spec->updir, File::Spec->updir, 'author.yml'
);

my $config;
$config = LoadFile($config_filename)
  if -r $config_filename;

if($config->{version}->{dir})