Changeset 15666

Show
Ignore:
Timestamp:
07/11/08 09:15:31 (5 years ago)
Author:
daisuke
Message:

use Data::Valve, introduce a new role

Location:
lang/perl/Mvalve/trunk
Files:
4 added
2 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Mvalve/trunk/Makefile.PL

    r15561 r15666  
    77requires('Cache::Memcached'); 
    88requires('Data::Serializer'); 
    9 requires('Data::Throttler'); 
     9requires('Data::Valve', '0.00003'); 
    1010requires('Digest::SHA1'); 
    1111requires('HTTP::Headers'); 
    … …  
    1515requires('UNIVERSAL::require'); 
    1616 
    17 recommends('Data::Throttler::Memcached'); 
    18  
    1917test_requires('Test::More'); 
    2018test_requires('Test::Compile'); 

  • lang/perl/Mvalve/trunk/lib/Mvalve.pm

    r15567 r15666  
    55use Moose::Util::TypeConstraints; 
    66use Mvalve::Message; 
     7use Mvalve::Throttler; 
    78use Time::HiRes(); 
    89 
    … …  
    1011our $AUTHORITY = "cpan:DMAKI"; 
    1112 
    12 class_type 'Data::Throttler'; 
    1313role_type 'Mvalve::Queue'; 
    1414role_type 'Mvalve::State'; 
    1515 
    16 coerce 'Data::Throttler' 
     16coerce 'Mvalve::Throttler' 
    1717    => from 'HashRef' 
    1818        => via { 
    … …  
    4949has 'throttler' => ( 
    5050    is       => 'rw', 
    51     isa      => 'Data::Throttler', 
     51    does     => 'Mvalve::Throttler', 
    5252    required => 1, 
    5353    coerce   => 1,