File Coverage

blib/lib/App/Pods2Site/SiteBuilderFactory.pm

Criterion	Covered	Total	%
statement	22	24	91.6
branch	2	4	50.0
condition	1	2	50.0
subroutine	6	7	85.7
pod	0	4	0.0
total	31	41	75.6

package App::Pods2Site::SiteBuilderFactory;

use strict;
use warnings;

our $VERSION = '1.003';
my $version = $VERSION;
$VERSION = eval $VERSION;

require App::Pods2Site::SiteBuilder::None;
require App::Pods2Site::SiteBuilder::BasicFramesSimpleTOC;
require App::Pods2Site::SiteBuilder::BasicFramesTreeTOC;

my $STDSTYLE = 'basicframes-tree-toc';
my %VALIDSTYLES =
	(
		'none' => 'App::Pods2Site::SiteBuilder::None',
		'basicframes-simple-toc' => 'App::Pods2Site::SiteBuilder::BasicFramesSimpleTOC',
		'basicframes-tree-toc' => 'App::Pods2Site::SiteBuilder::BasicFramesTreeTOC',
	);

# CTOR
#
sub new
{
	my $class = shift;
	my $style = shift || ':std';

	my $self = bless( { style => $style }, $class );

	$self->__computeStyle($style);

	return $self;
}

sub getStyle
{
	my $self = shift;

	return $self->{style};
}

sub getRealStyle
{
	my $self = shift;

	return $self->{realstyle};
}

sub createSiteBuilder
{
	my $self = shift;

	$self->{sitebuilderclass}->new($self->getRealStyle());
}

# PRIVATE
#

sub __computeStyle
{
	my $self = shift;
	my $style = shift;

	$style = $STDSTYLE if $style eq ':std';
	$self->{realstyle} = $style;

	my $siteBuilderClass = $VALIDSTYLES{$style};
	die("No such style: '$style' (available: " . join(',', keys(%VALIDSTYLES)) . ")\n") unless $siteBuilderClass;
	$self->{sitebuilderclass} = $siteBuilderClass;
}

1;