root/veekun/trunk/lib/Vee/Controller/Test.pm

package Vee::Controller::Test;

use strict;
use warnings;
use base 'Catalyst::Controller';

use Data::Dumper;

=head1 NAME

Vee::Controller::Test - Test Controller

=head1 SYNOPSIS

See L<Vee>

=head1 DESCRIPTION

I use this controller for random tests of snippets of code, and for convenience
I am providing a nearly-empty version of it to everyone else.  It is not used
by any other veekun code or required for anything.

Please do not commit this file with random tests in it; it is meant to be used
as your own personal sandbox.  If you want to write I<actual> tests, feel free
to load up the F<t/> directory with a few dozen.

=head1 METHODS

=cut

=head2 test

Prints a blank page with success/error/info messages at the top.

=cut

sub test : Path {
    my ($self, $c) = @_;
    my $s = $c->stash;

    $s->{success_msg} = "Success message";
    $s->{error_msg} = "Error message";
    $s->{info_msg} = "Info message";
    $s->{template} = 'blank.tt';
}

=head2 crash

Deliberately crashes.

=cut

sub crash : Local {
    my ($self, $c) = @_;

    my $crash = 1;
    $crash /= 0;
}

=head1 AUTHOR

A clever guy

=head1 LICENSE

This library is free software, you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

1;