[Bps-public-commit] r16360 - in Path-Dispatcher/trunk: lib/Path/Dispatcher t
sartak at bestpractical.com
sartak at bestpractical.com
Sun Oct 19 05:42:07 EDT 2008
Author: sartak
Date: Sun Oct 19 05:42:07 2008
New Revision: 16360
Modified:
Path-Dispatcher/trunk/ (props changed)
Path-Dispatcher/trunk/lib/Path/Dispatcher/Dispatch.pm
Path-Dispatcher/trunk/lib/Path/Dispatcher/Match.pm
Path-Dispatcher/trunk/lib/Path/Dispatcher/Rule.pm
Path-Dispatcher/trunk/t/002-rule.t
Log:
r74122 at onn: sartak | 2008-10-19 05:42:00 -0400
Promote Match out of Dispatch/ (2/2)
Modified: Path-Dispatcher/trunk/lib/Path/Dispatcher/Dispatch.pm
==============================================================================
--- Path-Dispatcher/trunk/lib/Path/Dispatcher/Dispatch.pm (original)
+++ Path-Dispatcher/trunk/lib/Path/Dispatcher/Dispatch.pm Sun Oct 19 05:42:07 2008
@@ -3,12 +3,12 @@
use Moose;
use MooseX::AttributeHelpers;
-use Path::Dispatcher::Dispatch::Match;
+use Path::Dispatcher::Match;
has _matches => (
metaclass => 'Collection::Array',
is => 'rw',
- isa => 'ArrayRef[Path::Dispatcher::Dispatch::Match]',
+ isa => 'ArrayRef[Path::Dispatcher::Match]',
default => sub { [] },
provides => {
push => 'add_match',
Modified: Path-Dispatcher/trunk/lib/Path/Dispatcher/Match.pm
==============================================================================
--- Path-Dispatcher/trunk/lib/Path/Dispatcher/Match.pm (original)
+++ Path-Dispatcher/trunk/lib/Path/Dispatcher/Match.pm Sun Oct 19 05:42:07 2008
@@ -1,5 +1,5 @@
#!/usr/bin/env perl
-package Path::Dispatcher::Dispatch::Match;
+package Path::Dispatcher::Match;
use Moose;
use Path::Dispatcher::Stage;
Modified: Path-Dispatcher/trunk/lib/Path/Dispatcher/Rule.pm
==============================================================================
--- Path-Dispatcher/trunk/lib/Path/Dispatcher/Rule.pm (original)
+++ Path-Dispatcher/trunk/lib/Path/Dispatcher/Rule.pm Sun Oct 19 05:42:07 2008
@@ -2,10 +2,10 @@
package Path::Dispatcher::Rule;
use Moose;
-use Path::Dispatcher::Dispatch::Match;
+use Path::Dispatcher::Match;
use Path::Dispatcher::Stage;
-sub match_class { "Path::Dispatcher::Dispatch::Match" }
+sub match_class { "Path::Dispatcher::Match" }
has block => (
is => 'ro',
Modified: Path-Dispatcher/trunk/t/002-rule.t
==============================================================================
--- Path-Dispatcher/trunk/t/002-rule.t (original)
+++ Path-Dispatcher/trunk/t/002-rule.t Sun Oct 19 05:42:07 2008
@@ -16,7 +16,7 @@
},
);
-isa_ok($rule->match('foobar'), 'Path::Dispatcher::Dispatch::Match');
+isa_ok($rule->match('foobar'), 'Path::Dispatcher::Match');
is_deeply($rule->match('foobar')->result, ['fo', 'ob']);
is_deeply([splice @calls], [], "block not called on match");
More information about the Bps-public-commit
mailing list