Index: /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/t/01-app.t
===================================================================
--- /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/t/01-app.t (revision 33216)
+++ /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/t/01-app.t (revision 33216)
@@ -0,0 +1,13 @@
+use FindBin;
+use File::Spec;
+use lib ( File::Spec->catfile( $FindBin::Bin , 'lib' ), '/Users/vkgtaro/Desktop/experimental/catalyst/Catalyst-Runtime-5.71001/lib');
+
+use Test::More qw(no_plan);
+
+use Catalyst::Test 'TestApp' ;
+TestApp->setup;
+diag( Catalyst->VERSION );
+
+my $page = get('/disable/foo/');
+ok( $page =~ /top/ , $page );
+
Index: /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/t/lib/TestApp/Controller/Disable.pm
===================================================================
--- /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/t/lib/TestApp/Controller/Disable.pm (revision 1856)
+++ /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/t/lib/TestApp/Controller/Disable.pm (revision 1856)
@@ -0,0 +1,12 @@
+package TestApp::Controller::Disable;
+
+use strict;
+use warnings;
+use base 'Catalyst::Controller::AllowDisable';
+
+sub foo : Local {
+    my ( $s , $c ) = @_;
+    $c->res->body('foo');
+}
+
+1;
Index: /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/t/lib/TestApp/Controller/Root.pm
===================================================================
--- /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/t/lib/TestApp/Controller/Root.pm (revision 1855)
+++ /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/t/lib/TestApp/Controller/Root.pm (revision 1855)
@@ -0,0 +1,14 @@
+package TestApp::Controller::Root;
+
+use strict;
+use warnings;
+use base 'Catalyst::Controller';
+
+
+sub default : Private {
+    my ( $self, $c ) = @_;
+    $c->response->body( 'top' );
+}
+
+
+1;
Index: /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/t/lib/TestApp.pm
===================================================================
--- /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/t/lib/TestApp.pm (revision 33069)
+++ /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/t/lib/TestApp.pm (revision 33069)
@@ -0,0 +1,65 @@
+package TestApp;
+
+use strict;
+use warnings;
+
+use Catalyst::Runtime '5.70';
+
+# Set flags and add plugins for the application
+#
+#         -Debug: activates the debug mode for very useful log messages
+#   ConfigLoader: will load the configuration from a YAML file in the
+#                 application's home directory
+# Static::Simple: will serve static files from the application's root 
+#                 directory
+
+use Catalyst qw/-Debug/;
+
+our $VERSION = '0.01';
+
+# Configure the application. 
+#
+# Note that settings in testapp.yml (or other external
+# configuration file that you set up manually) take precedence
+# over this when using ConfigLoader. Thus configuration
+# details given here can function as a default configuration,
+# with a external configuration file acting as an override for
+# local deployment.
+
+__PACKAGE__->config( 
+    name => 'TestApp',
+    on_controller_disable => 1,
+);
+
+# Start the application
+#__PACKAGE__->setup;
+
+
+=head1 NAME
+
+TestApp - Catalyst based application
+
+=head1 SYNOPSIS
+
+    script/testapp_server.pl
+
+=head1 DESCRIPTION
+
+[enter your description here]
+
+=head1 SEE ALSO
+
+L<TestApp::Controller::Root>, L<Catalyst>
+
+=head1 AUTHOR
+
+Tomohiro Teranishi
+
+=head1 LICENSE
+
+This library is free software, you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
+
+1;
Index: /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/t/00-load.t
===================================================================
--- /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/t/00-load.t (revision 1856)
+++ /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/t/00-load.t (revision 1856)
@@ -0,0 +1,9 @@
+#!perl -T
+
+use Test::More tests => 1;
+
+BEGIN {
+	use_ok( 'Catalyst::Controller::AllowDisable' );
+}
+
+diag( "Testing Catalyst::Controller::AllowDisable $Catalyst::Controller::AllowDisable::VERSION, Perl $], $^X" );
Index: /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/MANIFEST
===================================================================
--- /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/MANIFEST (revision 33127)
+++ /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/MANIFEST (revision 33127)
@@ -0,0 +1,22 @@
+Changes
+inc/Module/AutoInstall.pm
+inc/Module/Install.pm
+inc/Module/Install/AutoInstall.pm
+inc/Module/Install/Base.pm
+inc/Module/Install/Can.pm
+inc/Module/Install/Fetch.pm
+inc/Module/Install/Include.pm
+inc/Module/Install/Makefile.pm
+inc/Module/Install/Metadata.pm
+inc/Module/Install/Win32.pm
+inc/Module/Install/WriteAll.pm
+lib/Catalyst/Controller/AllowDisable.pm
+Makefile.PL
+MANIFEST			This list of files
+META.yml
+README
+t/00-load.t
+t/01-app.t
+t/lib/TestApp.pm
+t/lib/TestApp/Controller/Disable.pm
+t/lib/TestApp/Controller/Root.pm
Index: /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/META.yml
===================================================================
--- /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/META.yml (revision 8973)
+++ /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/META.yml (revision 8973)
@@ -0,0 +1,19 @@
+--- 
+abstract: Use when you want to disable your controller.
+author: 
+  - Tomohiro Teranishi <tomohiro.teranishi@gmail.com>
+distribution_type: module
+generated_by: Module::Install version 0.68
+license: perl
+meta-spec: 
+  url: http://module-build.sourceforge.net/META-spec-v1.3.html
+  version: 1.3
+name: Catalyst-Controller-AllowDisable
+no_index: 
+  directory: 
+    - inc
+    - t
+requires: 
+  Catalyst::Runtime: 5.7
+  Test::More: 0
+version: 0.02
Index: /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/lib/Catalyst/Controller/AllowDisable.pm
===================================================================
--- /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/lib/Catalyst/Controller/AllowDisable.pm (revision 33216)
+++ /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/lib/Catalyst/Controller/AllowDisable.pm (revision 33216)
@@ -0,0 +1,68 @@
+package Catalyst::Controller::AllowDisable;
+
+use warnings;
+use strict;
+
+our $VERSION = '0.07';
+
+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 - Use when you want to disable your controller.
+
+=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
+
Index: /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/Makefile.PL
===================================================================
--- /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/Makefile.PL (revision 33216)
+++ /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/Makefile.PL (revision 33216)
@@ -0,0 +1,16 @@
+use strict;
+use warnings;
+use inc::Module::Install;
+
+name 'Catalyst-Controller-AllowDisable';
+author 'Tomohiro Teranishi <tomohiro.teranishi@gmail.com>';
+repository 'http://svn.coderepos.org/share/lang/perl/Catalyst-Controller-AllowDisable/trunk';
+
+all_from 'lib/Catalyst/Controller/AllowDisable.pm';
+requires 'Test::More'        => 0;
+requires 'Catalyst::Runtime' => 5.70;
+requires 'MRO::Compat'       => 0;
+license 'perl';
+auto_install;
+WriteAll;
+
Index: /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/Changes
===================================================================
--- /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/Changes (revision 33216)
+++ /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/Changes (revision 33216)
@@ -0,0 +1,24 @@
+Revision history for CatalystX-Controller-AllowDisable
+
+0.07    2009-05-10T18:56
+        - added require modules to Makefile.PL
+
+0.06    2009-05-07T13:59
+        - added repository URL
+
+0.05    2009-05-07/13:46
+        - split tests to xt/
+
+0.04    2009-05-05/17:06
+        - fixed #45531: Broken by Catalyst::Runtime 5.80
+
+0.03    2008-04-06/18:20
+        - add spelling.t
+
+0.02    2008-04-05/11:43
+        - fix type
+        - using Module::Install
+
+0.01    2007-11-20/22:44
+        First version, released on an unsuspecting world.
+
Index: /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/MANIFEST.SKIP
===================================================================
--- /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/MANIFEST.SKIP (revision 33068)
+++ /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/MANIFEST.SKIP (revision 33068)
@@ -0,0 +1,19 @@
+\bRCS\b
+\bCVS\b
+^MANIFEST\.
+^Makefile$
+~$
+\.old$
+^blib/
+^cover_db/
+^pm_to_blib
+^MakeMaker-\d
+\.gz$
+\.cvsignore
+\.shipit
+^t/9\d_.*\.t
+\.svn/
+^#
+\._
+\.DS_Store
+^xt/
Index: /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/xt/spelling.t
===================================================================
--- /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/xt/spelling.t (revision 33126)
+++ /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/xt/spelling.t (revision 33126)
@@ -0,0 +1,22 @@
+use Test::More;
+use Test::Spelling;
+$ENV{LANG} = 'C';
+
+my $spell_cmd;
+foreach my $path (split(/:/, $ENV{PATH})) {
+    -x "$path/spell"  and $spell_cmd="spell", last;
+    -x "$path/ispell" and $spell_cmd="ispell -l", last;
+    -x "$path/aspell" and $spell_cmd="aspell list", last;
+}
+$ENV{SPELL_CMD} and $spell_cmd = $ENV{SPELL_CMD};
+$spell_cmd or plan skip_all => "no spell/ispell/aspell";
+set_spell_cmd($spell_cmd);
+
+add_stopwords(<DATA>);
+all_pod_files_spelling_ok();
+
+__END__
+Tomohiro
+Teranishi
+myapp
+yml
Index: /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/xt/boilerplate.t
===================================================================
--- /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/xt/boilerplate.t (revision 33126)
+++ /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/xt/boilerplate.t (revision 33126)
@@ -0,0 +1,48 @@
+#!perl -T
+
+use strict;
+use warnings;
+use Test::More tests => 3;
+
+sub not_in_file_ok {
+    my ($filename, %regex) = @_;
+    open my $fh, "<", $filename
+        or die "couldn't open $filename for reading: $!";
+
+    my %violated;
+
+    while (my $line = <$fh>) {
+        while (my ($desc, $regex) = each %regex) {
+            if ($line =~ $regex) {
+                push @{$violated{$desc}||=[]}, $.;
+            }
+        }
+    }
+
+    if (%violated) {
+        fail("$filename contains boilerplate text");
+        diag "$_ appears on lines @{$violated{$_}}" for keys %violated;
+    } else {
+        pass("$filename contains no boilerplate text");
+    }
+}
+
+not_in_file_ok(README =>
+    "The README is used..."       => qr/The README is used/,
+    "'version information here'"  => qr/to provide version information/,
+);
+
+not_in_file_ok(Changes =>
+    "placeholder date/time"       => qr(Date/time)
+);
+
+sub module_boilerplate_ok {
+    my ($module) = @_;
+    not_in_file_ok($module =>
+        'the great new $MODULENAME'   => qr/ - The great new /,
+        'boilerplate description'     => qr/Quick summary of what the module/,
+        'stub function definition'    => qr/function[12]/,
+    );
+}
+
+module_boilerplate_ok('lib/Catalyst/Controller/AllowDisable.pm');
Index: /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/xt/pod.t
===================================================================
--- /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/xt/pod.t (revision 33126)
+++ /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/xt/pod.t (revision 33126)
@@ -0,0 +1,6 @@
+#!perl -T
+
+use Test::More;
+eval "use Test::Pod 1.14";
+plan skip_all => "Test::Pod 1.14 required for testing POD" if $@;
+all_pod_files_ok();
Index: /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/xt/pod-coverage.t
===================================================================
--- /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/xt/pod-coverage.t (revision 33126)
+++ /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/xt/pod-coverage.t (revision 33126)
@@ -0,0 +1,6 @@
+#!perl -T
+
+use Test::More;
+eval "use Test::Pod::Coverage 1.04";
+plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
+all_pod_coverage_ok();
Index: /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/README
===================================================================
--- /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/README (revision 8953)
+++ /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/README (revision 8953)
@@ -0,0 +1,36 @@
+INSTALLATION
+
+To install this module, run the following commands:
+
+    perl Makefile.PL
+    make
+    make test
+    make install
+
+
+SUPPORT AND DOCUMENTATION
+
+After installing, you can find documentation for this module with the perldoc command.
+
+    perldoc CatalystX::Controller::AllowDisable
+
+You can also look for information at:
+
+    Search CPAN
+        http://search.cpan.org/dist/CatalystX-Controller-AllowDisable
+
+    CPAN Request Tracker:
+        http://rt.cpan.org/NoAuth/Bugs.html?Dist=CatalystX-Controller-AllowDisable
+
+    AnnoCPAN, annotated CPAN documentation:
+        http://annocpan.org/dist/CatalystX-Controller-AllowDisable
+
+    CPAN Ratings:
+        http://cpanratings.perl.org/d/CatalystX-Controller-AllowDisable
+
+COPYRIGHT AND LICENCE
+
+Copyright (C) 2007 Tomohiro Teranishi
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
Index: /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/.shipit
===================================================================
--- /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/.shipit (revision 33067)
+++ /lang/perl/Catalyst-Controller-AllowDisable/tags/release-0.07/.shipit (revision 33067)
@@ -0,0 +1,2 @@
+steps = FindVersion, ChangeVersion, CheckChangeLog, DistTest, Commit, Tag, MakeDist, UploadCPAN
+svn.tagpattern = release-%v