File Coverage

blib/lib/App/MaMGal/Base.pm

Criterion	Covered	Total	%
statement	15	24	62.5
branch	0	6	0.0
condition	1	3	33.3
subroutine	4	6	66.6
pod	0	2	0.0
total	20	41	48.7

# mamgal - a program for creating static image galleries
# Copyright 2007, 2008 Marcin Owsiany
# See the README file for license information
# Base class with some common stuff
package App::MaMGal::Base;
use strict;
use warnings;
use App::MaMGal::Exceptions;

sub new
{
	my $that  = shift;
	my $class = ref $that || $that;

	my $self = {};
	bless $self, $class;
	$self->init(@_);

	return $self;
}

sub init {;}

#######################################################################################################################
# Utility methods
sub _write_contents_to
{
	my $self = shift;
	my $code = shift;
	my $tmp_name = shift;
	my $full_name = shift;

	open(OUT, '>', $tmp_name)     or App::MaMGal::SystemException->throw(message => '%s: open failed: %s', objects => [$tmp_name, $!]);
	print OUT &$code;
	close(OUT)                    or App::MaMGal::SystemException->throw(message => '%s: close failed: %s', objects => [$tmp_name, $!]);
	rename($tmp_name, $full_name) or App::MaMGal::SystemException->throw(message => '%s: rename failed from "%s": %s', objects => [$full_name, $tmp_name, $!]);
}

1;