File Coverage

blib/lib/CatalystX/Profile.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	18	100.0

# ABSTRACT: Profile your Catalyst application with Devel::NYTProf
package CatalystX::Profile;
BEGIN {
  $CatalystX::Profile::VERSION = '0.02';
}
use Moose::Role;
use namespace::autoclean;

use CatalystX::InjectComponent;
use Devel::NYTProf;

after 'setup_finalize' => sub {
    my $self = shift;
    $self->log->debug('Profiling is active');
    DB::enable_profile();
};

after 'setup_components' => sub {
    my $class = shift;
    CatalystX::InjectComponent->inject(
        into => $class,
        component => 'CatalystX::Profile::Controller::ControlProfiling',
        as => 'Controller::Profile'
    );
};

1;


__END__
=pod

=head1 NAME

CatalystX::Profile - Profile your Catalyst application with Devel::NYTProf

=head1 VERSION

version 0.02

=head1 SYNOPSIS

    # In MyApp.pm
    use Catalyst qw( +CatalystX::Profile );

    export NYTPROF=start=no
    perl -d:NYTProf script/myapp_server.pl

    ... click around on your website ...

    Finish profiling: /profile/stop_profiling

=head1 DESCRIPTION

This (really basic for now) plugin adds support for profiling your
Catalyst application, without profiling all the crap that happens
during setup. This noise can make finding the real profiling stuff
trickier, so profiling is disabled while this happens.

=head1 BUGS, WARNINGS, POTENTIAL HEALTH HAZARDS

This module is really new - but it does do what it says on the tin so
far. But I really need some feedback! Please submit all feature
suggestions either on here via RT, or just poke me on irc.perl.org
(I'm aCiD2).

=head1 AUTHOR

Oliver Charles <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2011 by Oliver Charles.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut