Permalink
Browse files

s/Moose/Any::Moose/

  • Loading branch information...
miyagawa committed Nov 12, 2009
1 parent f448d91 commit 59f71507b687e9e7032bb9abd88333617e1fc3fd
View
@@ -4,8 +4,7 @@ all_from 'lib/Tatsumaki.pm';
readme_from 'lib/Tatsumaki.pm';
requires 'AnyEvent', '5.2';
requires 'AnyEvent::HTTP';
-requires 'Moose';
-requires 'MooseX::NonMoose';
+requires 'Any::Moose';
requires 'Plack', 0.9006;
requires 'Plack::Server::AnyEvent', 0.02;
requires 'Plack::Request';
View
6 README
@@ -9,15 +9,15 @@ SYNOPSIS
use Tatsumaki::Server;
package MainHandler;
- use base qw(Tatsumaki::Handler);
+ use parent qw(Tatsumaki::Handler);
sub get {
my $self = shift;
$self->write("Hello World");
}
package FeedHandler;
- use base qw(Tatsumaki::Handler);
+ use parent qw(Tatsumaki::Handler);
__PACKAGE__->asynchronous(1);
use JSON;
@@ -39,7 +39,7 @@ SYNOPSIS
}
package StreamWriter;
- use base qw(Tatsumaki::Handler);
+ use parent qw(Tatsumaki::Handler);
__PACKAGE__->asynchronous(1);
use AnyEvent;
@@ -1,6 +1,6 @@
package Tatsumaki::Application;
use AnyEvent;
-use Moose;
+use Any::Moose;
use Tatsumaki::Handler;
use Tatsumaki::Request;
use Text::MicroTemplate::File;
@@ -106,7 +106,7 @@ sub add_service {
push @{$self->services}, $service;
}
-no Moose;
+no Any::Moose;
__PACKAGE__->meta->make_immutable;
1;
View
@@ -1,18 +1,18 @@
package Tatsumaki::Error;
use strict;
-use Moose;
+use Any::Moose;
sub throw {
my($class, @rest) = @_;
die $class->new(@rest);
}
package Tatsumaki::Error::ClientDisconnect;
-use Moose;
+use Any::Moose;
extends 'Tatsumaki::Error';
package Tatsumaki::Error::HTTP;
-use Moose;
+use Any::Moose;
use HTTP::Status;
extends 'Tatsumaki::Error';
@@ -5,7 +5,7 @@ use HTTP::Request::Common ();
use HTTP::Request;
use HTTP::Response;
use Tatsumaki;
-use Moose;
+use Any::Moose;
has timeout => (is => 'rw', isa => 'Int', default => sub { 30 });
has agent => (is => 'rw', isa => 'Str', default => sub { join "/", __PACKAGE__, $Tatsumaki::VERSION });
@@ -44,7 +44,7 @@ sub request {
};
}
-no Moose;
+no Any::Moose;
__PACKAGE__->meta->make_immutable;
1;
View
@@ -3,7 +3,7 @@ use strict;
use AnyEvent;
use Carp ();
use Encode ();
-use Moose;
+use Any::Moose;
use MIME::Base64 ();
use JSON;
use Try::Tiny;
@@ -232,7 +232,7 @@ sub render {
$self->finish($self->application->render_file($file, { %$args, handler => $self })->as_string);
}
-no Moose;
+no Any::Moose;
__PACKAGE__->meta->make_immutable;
1;
@@ -1,6 +1,6 @@
package Tatsumaki::MessageQueue;
use strict;
-use Moose;
+use Any::Moose;
use Try::Tiny;
use Scalar::Util;
use Time::HiRes;
View
@@ -1,5 +1,5 @@
package Tatsumaki::Service;
-use Moose;
+use Any::Moose;
has application => (is => 'rw', isa => 'Tatsumaki::Application', weak_ref => 1);

0 comments on commit 59f7150

Please sign in to comment.