File Coverage

blib/lib/Maypole/View/Mason.pm

Criterion	Covered	Total	%
statement	6	6	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	8	8	100.0

package Maypole::View::Mason;
use strict;
use base 'Maypole::View::Base';
use HTML::Mason;
use Maypole::Constants;
use Data::Dumper;

our $VERSION = '0.3';

{
    package HTML::Mason::Commands;
    use vars qw/$request $config $classmetadata $objects $base/;
}

sub template {
    my ($self, $r) = @_;
    my $class = ref $r;
    my $label = "path0";
    my $output;
    my %args=$self->vars($r);
    my $mason = HTML::Mason::Interp->new(
        comp_root => [ map { [ $label++ => $_ ] } grep {$_} $self->paths($r) ],
        out_method => \$output,
        error_mode => "fatal"
    );
    no strict 'refs';
    map {${"HTML::Mason::Commands::".$_} =$args{$_} } keys %args;
    my ($comp) = "/".$r->template;
    if (! $mason->comp_exists($comp) ) {
	$r->{error} = "Could not find $comp";
	return ERROR;
    }
    eval {
	$mason->exec( $comp , %{$r->params});
    };
    if ($@) {
	$r->{error} = $@;
	return ERROR;
    } else {
	$r->{output} = $output;
	return OK;
    }
}

1;

=head1 NAME

Maypole::View::Mason - A HTML::Mason view class for Maypole

=head1 SYNOPSIS

   BeerDB->config->{view} = "Maypole::View::Mason";

And then:

    <%args>
        @breweries


    % for my $brewery (@breweries) {
        ...

    % }
    ...

=head1 DESCRIPTION

This class allows you to use C components for your Maypole
templates. It provides precisely the same path searching and template
variables as the Template Toolkit view class, although you will need
to produce your own set of templates as the factory-supplied templates
are, of course, Template Toolkit ones.

Please see the Maypole manual, and in particular, the C chapter,
for the template variables available and for a refresher on how template
components are resolved.


=head2 template

This is the main method of this module. See L.

=head1 SEE ALSO

L,L

=head1 AUTHOR

Simon Cozens
Marcus Ramberg

=head1 THANKS

This module was made possible thanks to a Perl Foundation grant.

=cut