File Coverage

blib/lib/Orze/Drivers/Copy.pm

Criterion	Covered	Total	%
statement	12	16	75.0
branch			n/a
condition			n/a
subroutine	4	5	80.0
pod	1	1	100.0
total	17	22	77.2

package Orze::Drivers::Copy;

use strict;
use warnings;

use File::Copy::Recursive qw/rcopy/;

use base "Orze::Drivers";

=head1 NAME

Orze::Drivers::Copy - Create a page by copying a file

=head1 DESCRIPTION

Create a page by copying a file from the C directory to the
C directory.

=head1 EXAMPLE


         extension="png"
         driver="Copy">


This snippet of an xml project description copy the file
C to C

=head1 METHODS

=head2 process

Do the real processing

=cut

sub process {
    my ($self) = @_;

    my $page = $self->{page};

    my ($source, $target) = $self->paths($page->att('name'));
    rcopy($source, $target);
}

1;