File Coverage

blib/lib/App/Pods2Site/SiteBuilder/AbstractBasicFrames.pm

Criterion	Covered	Total	%
statement	106	110	96.3
branch	9	16	56.2
condition	3	4	75.0
subroutine	11	13	84.6
pod	0	1	0.0
total	129	144	89.5

package App::Pods2Site::SiteBuilder::AbstractBasicFrames;

use strict;
use warnings;

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

use base qw(App::Pods2Site::AbstractSiteBuilder);

use App::Pods2Site::Util qw(slashify readData writeData writeUTF8File);

use HTML::Entities;

sub _getCssContent
{
	return <
\@charset "UTF-8";

html
{
	font-family: sans-serif;
	font-size: small;
}

MYCSS
}

sub makeSite
{
	my $self = shift;
	my $args = shift;
	my $workGroups = shift;
	my $partCounts = shift;
	my $mainpage = shift;

	$self->__updateHeader($args, $mainpage);
	$self->__updateAbout($args, $partCounts);
	$self->__updateTOC($args, $workGroups);
	$self->__updateIndex($args, $mainpage);
}

# PRIVATE
#

sub __updateHeader
{
	my $self = shift;
	my $args = shift;
	my $mainpage = shift;

	my $title = encode_entities($args->getTitle());
	my $sysCssName = $self->getSystemCssName();

	my ($mainspan, $aboutspan);
	if ($mainpage eq ':std')
	{
		$mainspan = qq($title);
		$aboutspan = '';
	}
	else
	{
		$mainspan = qq($title);
		$aboutspan = qq(about);
	}

	my $headerContent = <




		Pods2Site header





		$mainspan
		$aboutspan



HDR

	my $sitedir = $args->getSiteDir();
	my $headerFile = slashify("$sitedir/header.html");
	writeUTF8File($headerFile, $headerContent);

	print "Wrote header as '$headerFile'\n" if $args->isVerboseLevel(2);
}

sub __updateAbout
{
	my $self = shift;
	my $args = shift;
	my $partCounts = shift;

	my $scannedLocations = '';
	foreach my $loc ($args->getBinDirs(), $args->getLibDirs())
	{
		$loc = encode_entities($loc);
		$scannedLocations .= " $loc"
	}
	$scannedLocations = "\n\t\t\tScanned locations:$scannedLocations\n\t\t\n";

	my $style = "\n\t\t\tStyle:";
	$style .= " " . encode_entities($self->getStyleName()) . "";
	$style .= "\n\t\t\n";

	my $actualCSS = encode_entities($args->getCSS() || '(default)');
	$actualCSS = "\n\t\t\tCSS: $actualCSS\n\t\t\n";

	my $groupDefs = '';
	foreach my $groupDef (@{$args->getGroupDefs()})
	{
		$groupDefs .= "\n\t\t\t" if $groupDefs;
		my $name = encode_entities($groupDef->{name});
		$groupDefs .= " $name ($partCounts->{$groupDef->{name}} pods)";
		my $query = encode_entities($groupDef->{query}->getQuery());
		if ($query =~ s#\n##g)
		{
			$query =~ s#\t# #g;
		}
		$groupDefs .= "  $query";
	}
	$groupDefs = "\n\t\t\tGroups:\n\t\t\t$groupDefs\n\t\t\n";

	my $sitedir = $args->getSiteDir();
	my $savedTS = readData($sitedir, 'timestamps') || [];
	push(@$savedTS, time());
	writeData($sitedir, 'timestamps', $savedTS);

	my $z = encode_entities(slashify($0));
	my $zv = encode_entities($App::Pods2Site::VERSION);
	my $x = encode_entities($^X);
	my $xv = encode_entities($]);
	my $builtBy = "\n\t\t\tThis site built using:";
	$builtBy .= " $z ($zv)";
	$builtBy .= " $x ($xv)\n";
	$builtBy .= "\t\t\n";

	my $createdUpdated = '';
	$createdUpdated .= (' ' . encode_entities(scalar(localtime($_))) . "") foreach (@$savedTS);
	$createdUpdated = "\n\t\t\tCreated/Updated:$createdUpdated\n\t\t\n";

	my $sysCssName = $self->getSystemCssName();

	my $aboutContent = <




		Pods2Site main





		$scannedLocations
		$style
		$actualCSS
		$groupDefs
		$createdUpdated
		$builtBy



ABOUT

	my $aboutFile = slashify("$sitedir/about.html");
	writeUTF8File($aboutFile, $aboutContent);

	print "Wrote about as '$aboutFile'\n" if $args->isVerboseLevel(2);
}

sub __updateTOC
{
	my $self = shift;
	my $args = shift;
	my $workGroups = shift;

	my $sitedir = $args->getSiteDir();

	my $sections = '';
	foreach my $workGroup (@$workGroups)
	{
		$sections .= $self->_getCategoryTOC($workGroup->{group}, $workGroup->{podinfo}, $sitedir);
	}

	$self->_rewriteCss($args);

	my $sysCssName = $self->getSystemCssName();

	my $tocContent = <




		Pods2Site toc





		$sections



TOC

	my $tocFile = slashify("$sitedir/toc.html");
	writeUTF8File($tocFile, $tocContent);

	print "Wrote TOC as '$tocFile'\n" if $args->isVerboseLevel(2);
}

sub __updateIndex
{
	my $self = shift;
	my $args = shift;
	my $mainpage = shift;

	$mainpage = 'about.html' if $mainpage eq ':std';

	my $sysCssName = $self->getSystemCssName();
	my $title = encode_entities($args->getTitle());

	my $indexContent = <




		$title













INDEX

	my $sitedir = $args->getSiteDir();
	my $indexFile = slashify("$sitedir/index.html");
	writeUTF8File($indexFile, $indexContent);

	print "Wrote index as '$indexFile'\n" if $args->isVerboseLevel(2);
}

sub _getCategoryTOC
{
	die("Missing override: _getCategoryTOC()");
}

sub _rewriteCss
{
	# noop
}

1;