File Coverage

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

Criterion	Covered	Total	%
statement	97	99	97.9
branch	7	12	58.3
condition	3	4	75.0
subroutine	12	13	92.3
pod	0	1	0.0
total	119	129	92.2

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

use strict;
use warnings;

our $VERSION = '1.001';
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;

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

# PRIVATE
#

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

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

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

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

	my $actualCSS = encode_entities($args->getCSS() || '(default css)');
	$actualCSS = "CSS: $actualCSS";

	my $groupDefs = '';
	foreach my $groupDef (@{$args->getGroupDefs()})
	{
		$groupDefs .= '' 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 = "Groups:$groupDefs\n";

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

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

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

	my $mainContent = <




		Pods2Site main





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



MAIN

	my $mainFile = slashify("$sitedir/main.html");
	writeUTF8File($mainFile, $mainContent);

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

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

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

	my $headerContent = <




		Pods2Site header





		Pods2Site - Perl documentation from pods to html



MAIN

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

	print "Wrote header as '$headerFile'\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 $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;