view release on metacpan or  search on metacpan

maint/update-corpus.pl  view on Meta::CPAN

use strict;
use warnings;
use autodie qw( :all );
use 5.010;
use Path::Tiny qw( path );

chdir(path(__FILE__)->absolute->parent->parent->child('corpus')->stringify);

system 'rm -rf Alien-Build-Git-Example1 example1.tar example1';
system 'git clone git@github.com:plicease/Alien-Build-Git-Example1.git Alien-Build-Git-Example1';
system 'mv Alien-Build-Git-Example1 example1';
system 'tar cvf example1.tar example1';
system 'rm -rf example1';

t/lib/Repo.pm  view on Meta::CPAN

use strict;
use warnings;
use Path::Tiny qw( path );
use File::chdir;
use File::Temp qw( tempdir );
use Archive::Tar;
use base qw( Exporter );

our @EXPORT = qw( example1 );

my $corpus = path(__FILE__)->absolute->parent->parent->parent->child('corpus');

sub example1
{
  my $dir = tempdir( CLEANUP => 1 );

  local $CWD = "$dir";

  my $tar = Archive::Tar->new($corpus->child('example1.tar')->stringify);
  $tar->extract;