Acme-CatalystX-ILoveDebug

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: Acme-CatalystX-ILoveDebug
no_index:
  directory:
    - inc
    - t
requires:
  Moose: 0
  namespace::autoclean: 0
resources:
  license: http://dev.perl.org/licenses/
  repository: http://goatse.co.uk/~bobtfish/Acme-Catalyst-ILoveDebug.git
version: 0.01

Makefile.PL  view on Meta::CPAN

use strict;
use warnings;
use inc::Module::Install 0.91;
use Module::Install::AuthorRequires;
use Module::Install::AuthorTests;

name 'Acme-CatalystX-ILoveDebug';
all_from 'lib/Acme/CatalystX/ILoveDebug.pm';

requires 'Moose';
requires 'namespace::autoclean';

build_requires 'Catalyst::Runtime' => '5.80015';
build_requires 'Test::WWW::Mechanize::Catalyst';
build_requires 'Test::More' => '0.88';

author_requires 'Test::Pod::Coverage' => '1.04';
author_requires 'Test::Pod' => '1.14';

author_tests 't/author';

lib/Acme/CatalystX/ILoveDebug.pm  view on Meta::CPAN

package Acme::CatalystX::ILoveDebug;
use Moose::Role;
use namespace::autoclean;

our $VERSION = '0.01';

requires 'uri_for';

around uri_for => sub {
    my ($orig, $self) = (shift, shift);
    my $params = ref($_[-1]) eq 'HASH' ? pop @_ : {};
    $params->{dump_info} = 1;
    $self->$orig(@_, $params); 

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

package TestApp;
use Moose;
use namespace::autoclean;

use Catalyst qw/
    +Acme::CatalystX::ILoveDebug
    -Log=fatal
/;

extends 'Catalyst';

__PACKAGE__->setup;

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

package TestApp::Controller::Root;
use Moose;
use Test::More;
use namespace::autoclean;

BEGIN { extends 'Catalyst::Controller' }

__PACKAGE__->config(namespace => q{});

sub base : Chained('/') PathPart('') CaptureArgs(0) {}

sub main : Chained('base') PathPart('') Args(0) {
    my ($self, $ctx) = @_;
    $ctx->res->body($ctx->uri_for($self->action_for('foo'), 222));