File Coverage

blib/lib/Alien/GvaScript.pm

Criterion	Covered	Total	%
statement	12	24	50.0
branch	0	6	0.0
condition			n/a
subroutine	4	7	57.1
pod	3	3	100.0
total	19	40	47.5

package Alien::GvaScript;
use strict;
use warnings;

use File::Copy qw(copy);
use File::Path qw(mkpath);

our $VERSION = '1.45';

sub path {
  (my $path = __FILE__) =~ s[\.pm$][/lib];
  return $path;
}

sub html {
  (my $html_path = __FILE__) =~ s[\.pm$][/html];
  return $html_path;
}

sub install {
    my ($class, $destdir) = @_;
    if (!-d $destdir) {
        mkpath( $destdir )
          or die "can't create '$destdir'; $!";
    }

    my $path = $class->path();
    my @files = grep { -f $_ } glob "$path/*";
    foreach my $file (@files) {
        copy( $file, $destdir )
          or die "can't copy '$file' to '$destdir'; $!";
    }
}

1;

__END__