Permalink
Browse files

removed inc

  • Loading branch information...
1 parent affc2e8 commit fac02388fbd906da6cfddfd96f3199284d34b236 @dann committed Mar 14, 2009
@@ -80,7 +80,7 @@ requires(
# Components (remove from core)
'Template' => '2.20',
- 'DBIx::Class::Schema' => '0.08012',
+ 'DBIx::Class' => '0.08012',
'DBIx::Class::AsFdat' => 0,
'DBIx::Class::UTF8Columns' => 0,
@@ -1,5 +1,6 @@
package Angelos;
use 5.008_001;
+use strict;
our $VERSION = '0.01';
use Angelos::Class;
use Angelos::MIMETypes;
@@ -294,7 +295,7 @@ __END__
=head1 NAME
-Angelos -
+Angelos - MVC Web Application Framework
=head1 SYNOPSIS
@@ -309,7 +310,7 @@ Angelos -
$app->run;
1;
-Edit conf/routes.yaml to make dispatch rules and create an application class like below.
+Edit conf/routes.pl to make dispatch rules and create an application class like below.
=head1 DESCRIPTION
@@ -325,7 +326,7 @@ Many people have contributed ideas, inspiration, fixes and features to
the Angelos. Their efforts continue to be very much appreciated.
Please let me know if you think anyone is missing from this list.
-Lyo Kato, Tomyhero Teranishi, vkgtaro, hideden, bonnu
+Lyo Kato, vkgtaro, hideden, bonnu, Tomyhero Teranishi
=head1 SEE ALSO
@@ -1,4 +1,6 @@
package Angelos::CLI;
+use strict;
+use warnings;
use base qw(App::Cmd);
=head1 NAME
@@ -1,4 +1,6 @@
package Angelos::Config::Schema;
+use strict;
+use warnings;
sub config {
my $schema = {
@@ -1,4 +1,6 @@
package Angelos::Config::Validator;
+use strict;
+use warnings;
our $HasKwalify;
eval {
@@ -1,4 +1,5 @@
package Angelos::Controller::Mixin::Responder;
+use strict;
use Mouse::Role;
has '__contenttype_to_view_mappings' => (
@@ -7,7 +8,7 @@ has '__contenttype_to_view_mappings' => (
{ 'text/html' => 'TT',
'application/json' => 'JSON',
},
- ;
+ ;
}
);
@@ -22,8 +23,9 @@ sub __content_type {
sub __content_type_from_format {
my $self = shift;
my $format = $self->context->_match->{format};
- my $content_type
- = $self->context->available_mimetypes->mime_type_of($format)
+ my $content_type;
+ $content_type
+ ||= $self->context->available_mimetypes->mime_type_of($format)
if $format;
$content_type;
}
@@ -17,7 +17,7 @@ sub build_from_config {
sub build {
my ( $self, $conf ) = @_;
my $content = $conf->slurp;
- my $router = eval $content;
+ my $router = eval $content; ##no critic
if ( my $e = $@ ) {
Angelos::Exception->throw(
message => "Can't load routes.pl: $conf. error: $e" );
@@ -38,6 +38,7 @@ sub _generate_logger_class {
# Log::Dispatch::Config is Singleton class,
# This causes trobule under mod_perl enviroment,
# So, we generate application specific logger class
+ ## no critic
eval <<"";
package $logger;
use base qw/Log\::Dispatch\::Config/;
@@ -1,4 +1,6 @@
package Angelos::Manual;
+use strict;
+use warnings;
=head1 NAME
@@ -1,4 +1,6 @@
package Angelos::Script;
+use strict;
+use warnings;
use base qw(App::Cmd);
1;
@@ -2,4 +2,4 @@
allow=refs
[TestingAndDebugging::RequireUseStrict]
-equivalent_modules = Mouse Mouse::Role Angelos::Class Angelos::Role Angelos::Plugin HTTP::Engine::Middleware Test::Base
+equivalent_modules = Mouse Mouse::Role Angelos::Class Angelos::Role Angelos::Plugin HTTP::Engine::Middleware Test::Base Angelos::Controller::Mixin::Responder Angelos::Manual

0 comments on commit fac0238

Please sign in to comment.