File Coverage

blib/lib/TinyAuth/Install.pm

Criterion	Covered	Total	%
statement	13	23	56.5
branch	0	6	0.0
condition			n/a
subroutine	5	7	71.4
pod	0	2	0.0
total	18	38	47.3

package TinyAuth::Install;

use 5.005;
use strict;
use base 'Module::CGI::Install';

use vars qw{$VERSION};
BEGIN {
	$VERSION = '0.98';
}

sub prepare {
	my $self = shift;

	# Add the files to install
	$self->add_script('TinyAuth', 'tinyauth');

	# Hand off to the parent class
	return $self->SUPER::prepare(@_);
}

sub run {
	my $self = shift;

	# Install the script/lib files
	my $rv = $self->SUPER::run;

	# Create the default config file
	my $to = $self->cgi_map->catfile('tinyauth.conf')->path;
	open( CONFIG, ">$to" ) or die "Failed to open tinyauth.conf";
	print CONFIG "---\n"   or die "Failed to write tinyauth.conf";
	close CONFIG           or die "Failed to close tinyauth.conf";

	return $rv;
}

1;