view release on metacpan or  search on metacpan

t/lib/TestApp/Controller/Root.pm  view on Meta::CPAN

    $c->res->body($output);
}

sub verify_messages : Local {
    my ( $self, $c ) = @_;
    my $results = $self->verify($c);
    my $output  = "success: " . $results->success . "\n";
    my $stack   = $self->messages($c);
    foreach my $message ( @{ $stack->messages } ) {
        $output .= sprintf("%s: %s\n",
            $message->subject, $message->msgid);
    }
    $c->res->body($output);
}

sub verify_me_and_die : Local {
    my ( $self, $c ) = @_;
    my $results = $self->verify($c);
}

no Moose;