File Coverage

blib/lib/System/InitD/GenInit/Debian.pm

Criterion	Covered	Total	%
statement	26	27	96.3
branch	1	2	50.0
condition	1	3	33.3
subroutine	7	7	100.0
pod	0	1	0.0
total	35	40	87.5

package System::InitD::GenInit::Debian;

use parent qw/System::InitD::Base/;

use strict;
use warnings;

use Carp;
use File::ShareDir qw/dist_file/;

use constant TEMPLATE => 'debian.tpl';


sub generate {
    if ( !ref $_[0] && $_[0] eq __PACKAGE__ ) {
        shift;
    }
    else {
        croak 'Bad params';
    }
    my ($options) = @_;

    my $generator = __PACKAGE__->new($options);

    my $data_location = dist_file('System-InitD', TEMPLATE);

    # пока-что так, MVP
    $generator->forward_render_params($options, keys %$options);

    $generator->write_script($data_location);
    return 1;
};


1;

__END__