File Coverage

blib/lib/Mojo/Debugbar.pm

Criterion	Covered	Total	%
statement	12	22	54.5
branch	0	6	0.0
condition	0	3	0.0
subroutine	4	8	50.0
pod	3	3	100.0
total	19	42	45.2

package Mojo::Debugbar;
use Mojo::Base -base;

use Mojo::Debugbar::Monitors;
use Mojo::Loader qw(load_class);
use Mojo::Server;

our $VERSION = '0.0.3';

has 'app' => sub { Mojo::Server->new->build_app('Mojo::HelloWorld') }, weak => 1;
has 'config' => sub {{
    hide_empty  => 0,
    monitors    => [
        'Mojo::Debugbar::Monitor::Request',
        'Mojo::Debugbar::Monitor::DBIx',
        'Mojo::Debugbar::Monitor::Template',
        'Mojo::Debugbar::Monitor::ValidationTiny',
    ],
}};

has 'monitors' => sub {
    my $self = shift;

    my @monitors;

    foreach my $module (@{ $self->config->{ monitors } || [] }) {
        my $monitor = _monitor($module, 1);

        push(@monitors, $monitor->new(app => $self->app));
    }

    return Mojo::Debugbar::Monitors->new(
        registered  => \@monitors,
        hide_empty  => $self->config->{ hide_empty },
    );
};

=head2 render
    Proxy for monitors->render
=cut

sub render {
    return shift->monitors->render;
}

=head2 stop
    Proxy for monitors->stop
=cut

sub stop {
    my $self = shift;

    $self->monitors->stop;

    return $self;
}

=head2 start
    Proxy for monitors->start
=cut

sub start {
    my $self = shift;

    $self->monitors->start;

    return $self;
}


=head2 _monitor
    Load monitor
=cut

sub _monitor {
    my ($module, $fatal) = @_;

    return $module->isa('Mojo::Debugbar::Monitor') ? $module : undef
        unless my $e = load_class $module;
    $fatal && ref $e ? die $e : return undef;
}

1;

=encoding utf8

=head1 NAME

Mojo::Debugbar - A nice Debugbar that helps developers using Mojolicious framework

=head1 SYNOPSIS

    use Mojo::Debugbar;

    my $debugbar = Mojo::Debugbar->new(app => $app, config => {
        hide_empty  => 0,
        monitors    => [
            'Mojo::Debugbar::Monitor::Request',
            'Mojo::Debugbar::Monitor::DBIx',
            'Mojo::Debugbar::Monitor::Template',
            'Mojo::Debugbar::Monitor::ValidationTiny',
        ]
    });

    $debugbar->start;

    ...

    $debugbar->stop;

=head1 DESCRIPTION

L is a package that helps you collect some metrics for your Mojolicious app

=head1 ATTRIBUTES

L inherits all attributes from L.

=head1 METHODS

L inherits all methods from L and implements
the following new ones.

=head2 render

    $debugbar->start;

Renders the collected metrics as html.

=head2 start

    $debugbar->start;

Starts all the monitors.

=head2 stop

    $debugbar->stop;

Stops all the monitors.

=head1 SEE ALSO

L, L, L, L.

=cut