File Coverage

blib/lib/Terse/View.pm

Criterion	Covered	Total	%
statement	9	11	81.8
branch	1	2	50.0
condition			n/a
subroutine	2	3	66.6
pod	1	2	50.0
total	13	18	72.2

package Terse::View;

use base 'Terse';

sub new {
	my ($pkg, @args) = @_;
	my $self = $pkg->SUPER::new(@args);
	my ($namespace) = $pkg =~ m/([^:]+)$/;
	$self->namespace = lc( $namespace );
	$self->build_view($self->app_config) if ($self->can('build_view'));
	return $self;
}

sub render {
	my ($self, $t, $data) = @_;
	return ('application/json', $data->pretty(1)->serialize())
}

1;

=head1 NAME

Terse::View - views made simple.

=head1 VERSION

Version 0.20

=cut

=head1 SYNOPSIS

	package My::App::View::Pretty;

	use base 'Terse::View';

	1;

	... If using Terse::App

	package My::App;

	use base 'Terse::App';

	sub build_app {
		$_[0]->response_view = 'pretty'; # default all requests to use this view.
	}

	sub auth {
		shift;
		$_[0]->controller('admin/auth')->authenticate(@_);
	}

	... else

	package MyApp;

	use base 'Terse::Controller';

	use MyAppView;

	sub build_controller {
		$_[0]->views->pretty = MyAppView->new();
		$_[0]->response_view = 'pretty';
	}

	sub overview :get {
		$_[1]->response->data = $_[1]->model('data')->do_something();
	}


=cut

=head1 AUTHOR

LNATION, C<<  >>

=head1 LICENSE AND COPYRIGHT

L.

=cut