view release on metacpan or  search on metacpan

t/oop.t  view on Meta::CPAN

#!/usr/bin/perl -w
use strict;

use Test::More skip_all => 'Not implemented yet.';
use Test::NoWarnings;

use File::Tools;


{
  my $shell = File::Tools->new;
  $shell->copy("old", "new");
}


{
  my $shell = File::Tools->new;
  $shell->things([qw(.)]);  # things are directories, files
  $shell->recoursive(1);
  $shell->chown("username", "groupname");
}


{
  my $shell = File::Tools->new(file => "filename");
  grep /regex/, $shell->cat;
}