File Coverage

blib/lib/Pinwheel/Helpers/SSI.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	8	8	100.0
condition			n/a
subroutine	9	9	100.0
pod	0	5	0.0
total	46	51	90.2

package Pinwheel::Helpers::SSI;

use strict;
use warnings;

use Exporter;

require Pinwheel::Controller;
use Pinwheel::View::String;

our @ISA = qw(Exporter);
our @EXPORT_OK = qw(
    ssi_if_exists
    ssi_if_not_exists
    ssi_include
    ssi_set
);


sub ssi_if_exists
{
    my $fn = pop;
    my $path = (scalar(@_) > 1) ? Pinwheel::Controller::url_for(@_) : shift;
    return ssi_flastmod($path, '!=', [&$fn()]);
}

sub ssi_if_not_exists
{
    my $fn = pop;
    my $path = (scalar(@_) > 1) ? Pinwheel::Controller::url_for(@_) : shift;
    return ssi_flastmod($path, '=', [&$fn()]);
}

sub ssi_flastmod
{
    # Not exposed to the templates, but useful as a building block for other
    # helpers
    my ($path, $cond, $content, $else_content) = @_;
    my ($s);

    $s = [
        ['\n"],
        ['' . "\n"],
        $content,
    ];
    push @$s, ["\n"], $else_content if defined($else_content);
    push @$s, ["\n"];

    return Pinwheel::View::String->new($s);
}

sub ssi_include
{
    my ($path);

    $path = (scalar(@_) > 1) ? Pinwheel::Controller::url_for(@_) : shift;
    return Pinwheel::View::String->new([
        ['']
    ]);
}

sub ssi_set
{
    my ($var, $value) = @_;

    return Pinwheel::View::String->new([
        [''],
    ]);
}


1;