File Coverage

blib/lib/Catalyst/Controller/AllowDisable.pm

Criterion	Covered	Total	%
statement	15	21	71.4
branch	0	2	0.0
condition			n/a
subroutine	5	6	83.3
pod	1	1	100.0
total	21	30	70.0

package Catalyst::Controller::AllowDisable;

use warnings;
use strict;

our $VERSION = '0.08';

use base qw/Catalyst::Controller/;
use strict;
use warnings;

sub new {
    my $class = shift;
    my ($app) = @_;
    my $self = $class->next::method(@_);

    if ( $app->config->{on_controller_disable} ) {
        return bless {}, 'Catalyst::Controller::AllowDisable::Disabled';
    }

    return $self;
}

1;

=head1 NAME

Catalyst::Controller::AllowDisable - DEPRECATED.

=head1 WARNINGS

this module is DEPRECATED.

because equivalent mechanism is supported on Catalyst.
http://lumberjaph.net/blog/index.php/2009/06/25/how-to-prevent-some-components-to-be-loaded-by-catalyst/

=head1 SYNOPSIS

    Package App::Web::Controller::Devel;

    use base qw/Catalyst::Controller::AllowDisable/;

    sub make_10000_users : Local {

    }

    1;


myapp.yml

 on_controller_disable:1


=head1 DESCRIPTION

I sometime create controller only for developers which I do not want to ship it to production but I do not want to remove it also. So I create this controller module. You can disable controller which using this module using on_controller_disable=1 at config.

=head1 METHOD

=head2 new

=head1 AUTHOR

Tomohiro Teranishi, C<< <tomohiro.teranishi at gmail.com> >>

=head1 COPYRIGHT & LICENSE

Copyright 2008 Tomohiro Teranishi, all rights reserved.

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

=cut