[Catalyst-commits] r11258 - in Catalyst-Runtime/5.80/branches/component_registration-search_extra/t/lib: . TestAppSearchExtra/Controller TestAppSearchExtra/Model TestAppSearchExtraX/Controller TestAppSearchExtraX/Model

rodrigolive at dev.catalyst.perl.org rodrigolive at dev.catalyst.perl.org
Thu Aug 27 14:34:23 GMT 2009


Author: rodrigolive
Date: 2009-08-27 14:34:20 +0000 (Thu, 27 Aug 2009)
New Revision: 11258

Removed:
   Catalyst-Runtime/5.80/branches/component_registration-search_extra/t/lib/TestAppSearchExtra/Controller/Root.pm
Modified:
   Catalyst-Runtime/5.80/branches/component_registration-search_extra/t/lib/TestAppSearchExtra.pm
   Catalyst-Runtime/5.80/branches/component_registration-search_extra/t/lib/TestAppSearchExtra/Model/Foo.pm
   Catalyst-Runtime/5.80/branches/component_registration-search_extra/t/lib/TestAppSearchExtraX/Controller/Baz.pm
   Catalyst-Runtime/5.80/branches/component_registration-search_extra/t/lib/TestAppSearchExtraX/Model/FooBar.pm
Log:
Took out Static::Simple, POD, use parent, and Runtime


Deleted: Catalyst-Runtime/5.80/branches/component_registration-search_extra/t/lib/TestAppSearchExtra/Controller/Root.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/component_registration-search_extra/t/lib/TestAppSearchExtra/Controller/Root.pm	2009-08-27 13:35:11 UTC (rev 11257)
+++ Catalyst-Runtime/5.80/branches/component_registration-search_extra/t/lib/TestAppSearchExtra/Controller/Root.pm	2009-08-27 14:34:20 UTC (rev 11258)
@@ -1,61 +0,0 @@
-package TestAppSearchExtra::Controller::Root;
-
-use strict;
-use warnings;
-use parent 'Catalyst::Controller';
-
-#
-# Sets the actions in this controller to be registered with no prefix
-# so they function identically to actions created in MyApp.pm
-#
-__PACKAGE__->config->{namespace} = '';
-
-=head1 NAME
-
-TestAppSearchExtra::Controller::Root - Root Controller for TestAppSearchExtra
-
-=head1 DESCRIPTION
-
-[enter your description here]
-
-=head1 METHODS
-
-=cut
-
-=head2 index
-
-=cut
-
-sub index :Path :Args(0) {
-    my ( $self, $c ) = @_;
-
-    # Hello World
-    $c->response->body( $c->welcome_message );
-}
-
-sub default :Path {
-    my ( $self, $c ) = @_;
-    $c->response->body( 'Page not found' );
-    $c->response->status(404);
-}
-
-=head2 end
-
-Attempt to render a view, if needed.
-
-=cut
-
-sub end : ActionClass('RenderView') {}
-
-=head1 AUTHOR
-
-Catalyst developer
-
-=head1 LICENSE
-
-This library is free software. You can redistribute it and/or modify
-it under the same terms as Perl itself.
-
-=cut
-
-1;

Modified: Catalyst-Runtime/5.80/branches/component_registration-search_extra/t/lib/TestAppSearchExtra/Model/Foo.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/component_registration-search_extra/t/lib/TestAppSearchExtra/Model/Foo.pm	2009-08-27 13:35:11 UTC (rev 11257)
+++ Catalyst-Runtime/5.80/branches/component_registration-search_extra/t/lib/TestAppSearchExtra/Model/Foo.pm	2009-08-27 14:34:20 UTC (rev 11258)
@@ -1,7 +1,6 @@
-package TestAppSearchExtra::Model::Foo;
-
-use strict;
-use warnings;
-use parent 'Catalyst::Model';
-
-1;
+package TestAppSearchExtra::Model::Foo;
+
+use strict;
+use base 'Catalyst::Model';
+
+1;

Modified: Catalyst-Runtime/5.80/branches/component_registration-search_extra/t/lib/TestAppSearchExtra.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/component_registration-search_extra/t/lib/TestAppSearchExtra.pm	2009-08-27 13:35:11 UTC (rev 11257)
+++ Catalyst-Runtime/5.80/branches/component_registration-search_extra/t/lib/TestAppSearchExtra.pm	2009-08-27 14:34:20 UTC (rev 11258)
@@ -1,64 +1,14 @@
 package TestAppSearchExtra;
 
 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 Config::General file in the
-#                 application's home directory
-# Static::Simple: will serve static files from the application's root
-#                 directory
-
-use parent qw/Catalyst/;
-use Catalyst qw/-Debug
-                Static::Simple/;
+use base qw/Catalyst/;
+use Catalyst;
 our $VERSION = '0.01';
 
-# Configure the application.
-#
-# Note that settings in testappsearchextra.conf (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 an external configuration file acting as an override for
-# local deployment.
-
-__PACKAGE__->config( name => 'TestAppSearchExtra' );
-
+__PACKAGE__->config( name => __PACKAGE__ );
 __PACKAGE__->config( setup_components => { search_extra => [ 'TestAppSearchExtraX' ] } );
 
-# Start the application
 __PACKAGE__->setup();
 
-=head1 NAME
-
-TestAppSearchExtra - Catalyst based application
-
-=head1 SYNOPSIS
-
-    script/testappsearchextra_server.pl
-
-=head1 DESCRIPTION
-
-[enter your description here]
-
-=head1 SEE ALSO
-
-L<TestAppSearchExtra::Controller::Root>, L<Catalyst>
-
-=head1 AUTHOR
-
-Catalyst developer
-
-=head1 LICENSE
-
-This library is free software. You can redistribute it and/or modify
-it under the same terms as Perl itself.
-
-=cut
-
 1;

Modified: Catalyst-Runtime/5.80/branches/component_registration-search_extra/t/lib/TestAppSearchExtraX/Controller/Baz.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/component_registration-search_extra/t/lib/TestAppSearchExtraX/Controller/Baz.pm	2009-08-27 13:35:11 UTC (rev 11257)
+++ Catalyst-Runtime/5.80/branches/component_registration-search_extra/t/lib/TestAppSearchExtraX/Controller/Baz.pm	2009-08-27 14:34:20 UTC (rev 11258)
@@ -1,11 +1,10 @@
-package TestAppSearchExtraX::Controller::Baz;
-
-use strict;
-use warnings;
-use parent 'Catalyst::Controller';
-
-sub hello : Local {
-    my ($self,$c)=@_;
-    $c->response->body('Hello from Baz');
-}
-1;
+package TestAppSearchExtraX::Controller::Baz;
+
+use strict;
+use base 'Catalyst::Controller';
+
+sub hello : Local {
+    my ($self,$c)=@_;
+    $c->response->body('Hello from Baz');
+}
+1;

Modified: Catalyst-Runtime/5.80/branches/component_registration-search_extra/t/lib/TestAppSearchExtraX/Model/FooBar.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/component_registration-search_extra/t/lib/TestAppSearchExtraX/Model/FooBar.pm	2009-08-27 13:35:11 UTC (rev 11257)
+++ Catalyst-Runtime/5.80/branches/component_registration-search_extra/t/lib/TestAppSearchExtraX/Model/FooBar.pm	2009-08-27 14:34:20 UTC (rev 11258)
@@ -1,7 +1,6 @@
-package TestAppSearchExtraX::Model::FooBar;
-
-use strict;
-use warnings;
-use parent 'Catalyst::Model';
-
-1;
+package TestAppSearchExtraX::Model::FooBar;
+
+use strict;
+use base 'Catalyst::Model';
+
+1;




More information about the Catalyst-commits mailing list