Skip to content
Browse files

モジュール名変更

  • Loading branch information...
1 parent 2ec6e22 commit 0b69073ca13e806f6913064a2e0f86c3b04e797d @kentaro committed May 1, 2011
View
4 Makefile.PL
@@ -3,9 +3,9 @@ use warnings;
use ExtUtils::MakeMaker;
WriteMakefile(
- NAME => 'Dotcloud::Kentaro',
+ NAME => 'Kentarok::Now',
AUTHOR => 'Kentaro Kuribayashi',
- VERSION_FROM => 'lib/Dotcloud/Kentaro.pm',
+ VERSION_FROM => 'lib/Kentarok/Now.pm',
($ExtUtils::MakeMaker::VERSION >= 6.3002
? ('LICENSE'=> 'MIT')
View
2 bin/app.pl
@@ -1,5 +1,5 @@
#!/usr/bin/env perl
use Dancer;
-use Dotcloud::Kentaro;
+use Kentarok::Now;
dance;
View
8 lib/Dotcloud/Kentaro.pm → lib/Kentarok/Now.pm
@@ -1,15 +1,15 @@
-package Dotcloud::Kentaro;
+package Kentarok::Now;
use Dancer ':syntax';
use Dancer::Plugin::Auth::Twitter;
our $VERSION = '0.01';
-use Dotcloud::Kentaro::App::Now;
+use Kentarok::Now::App::Now;
auth_twitter_init;
get '/' => sub {
- my $app = Dotcloud::Kentaro::App::Now->new(
+ my $app = Kentarok::Now::App::Now->new(
user => session('twitter_user'),
twitter_url => !session('twitter_user') ? auth_twitter_authenticate_url : undef,
);
@@ -18,7 +18,7 @@ get '/' => sub {
};
post '/' => sub {
- my $app = Dotcloud::Kentaro::App::Now->new(
+ my $app = Kentarok::Now::App::Now->new(
user => session('twitter_user'),
);
View
2 lib/Dotcloud/Kentaro/App.pm → lib/Kentarok/Now/App.pm
@@ -1,4 +1,4 @@
-package Dotcloud::Kentaro::App;
+package Kentarok::Now::App;
use Mouse;
no Mouse;
__PACKAGE__->meta->make_immutable;
View
10 lib/Dotcloud/Kentaro/App/Now.pm → lib/Kentarok/Now/App/Now.pm
@@ -1,6 +1,6 @@
-package Dotcloud::Kentaro::App::Now;
+package Kentarok::Now::App::Now;
use Mouse;
-extends 'Dotcloud::Kentaro::App';
+extends 'Kentarok::Now::App';
has 'user' => (
is => 'rw',
@@ -21,11 +21,11 @@ has 'error' => (
no Mouse;
__PACKAGE__->meta->make_immutable;
-use Dotcloud::Kentaro::Model::Now;
+use Kentarok::Now::Model::Now;
sub entries {
my ($self, $offset, $limit) = @_;
- my $model = Dotcloud::Kentaro::Model::Now->new;
+ my $model = Kentarok::Now::Model::Now->new;
$model->retrieve(
offset => $offset,
limit => $limit,
@@ -43,7 +43,7 @@ sub create {
return;
}
else {
- my $model = Dotcloud::Kentaro::Model::Now->new;
+ my $model = Kentarok::Now::Model::Now->new;
$model->create(%args);
}
View
2 lib/Dotcloud/Kentaro/Model.pm → lib/Kentarok/Now/Model.pm
@@ -1,4 +1,4 @@
-package Dotcloud::Kentaro::Model;
+package Kentarok::Now::Model;
use Mouse::Role;
requires qw(
View
12 lib/Dotcloud/Kentaro/Model/Now.pm → lib/Kentarok/Now/Model/Now.pm
@@ -1,6 +1,8 @@
-package Dotcloud::Kentaro::Model::Now;
+package Kentarok::Now::Model::Now;
use Mouse;
-with qw(Dotcloud::Kentaro::Model);
+with qw(Kentarok::Now::Model);
+
+use UNIVERSAL::require;
has 'table' => (
is => 'rw',
@@ -11,17 +13,15 @@ has 'table' => (
has 'storage' => (
is => 'rw',
default => sub {
- Dotcloud::Kentaro::Storage::Redis->use;
- Dotcloud::Kentaro::Storage::Redis->new;
+ Kentarok::Now::Storage::Redis->use;
+ Kentarok::Now::Storage::Redis->new;
},
lazy => 1,
);
no Mouse;
__PACKAGE__->meta->make_immutable;
-use UNIVERSAL::require;
-
sub create {
my ($self, %args) = @_;
$self->storage->create(table => $self->table, %args);
View
2 lib/Dotcloud/Kentaro/Storage.pm → lib/Kentarok/Now/Storage.pm
@@ -1,4 +1,4 @@
-package Dotcloud::Kentaro::Stroge;
+package Kentarok::Now::Stroge;
use Mouse::Role;
requires qw(
View
4 lib/Dotcloud/Kentaro/Storage/Redis.pm → lib/Kentarok/Now/Storage/Redis.pm
@@ -1,6 +1,6 @@
-package Dotcloud::Kentaro::Storage::Redis;
+package Kentarok::Now::Storage::Redis;
use Mouse;
-with qw(Dotcloud::Kentaro::Storage);
+with qw(Kentarok::Now::Storage);
no Mouse;
__PACKAGE__->meta->make_immutable;

0 comments on commit 0b69073

Please sign in to comment.
Something went wrong with that request. Please try again.