Changeset 20429 for lang/perl

Show
Ignore:
Timestamp:
10/02/08 02:20:18 (5 years ago)
Author:
daisuke
Message:

qualify subtype name, use MooseX::KeyedMutex?

Location:
lang/perl/Data-Valve/trunk
Files:
3 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Data-Valve/trunk/Makefile.PL

    r19009 r20429  
    2121    OBJECT       => '$(O_FILES)', 
    2222    PREREQ_PM    => { 
    23         Moose => 0, 
    24         KeyedMutex => '0.06', 
     23        'Moose' => 0, 
     24        'MooseX::KeyedMutex' => '0.00003', 
    2525        'Test::More' => 0, 
    2626        'Test::UseAllModules' => 0, 

  • lang/perl/Data-Valve/trunk/lib/Data/Valve/BucketStore/Memcached.pm

    r16079 r20429  
    77extends 'Data::Valve::BucketStore::Object'; 
    88 
    9 subtype 'Memcached' 
     9subtype 'Data::Valve::BucketStore::Object::Memcached' 
    1010    => as 'Object' 
    1111        => where { 
    … …  
    1818; 
    1919 
    20 coerce 'Memcached' 
     20coerce 'Data::Valve::BucketStore::Object::Memcached' 
    2121    => from 'HashRef' 
    2222        => via { 
    … …  
    2929 
    3030has '+store' => ( 
    31     isa      => 'Memcached', 
     31    isa      => 'Data::Valve::BucketStore::Object::Memcached', 
    3232    coerce   => 1, 
    3333    required => 1, 
    … …  
    4343 
    4444no Moose; 
     45no Moose::Util::TypeConstraints; 
    4546 
    46471; 

  • lang/perl/Data-Valve/trunk/lib/Data/Valve/BucketStore/Object.pm

    r16080 r20429  
    66 
    77with 'Data::Valve::BucketStore'; 
    8 with 'Data::Valve::BucketStore::WithKeyedMutex'; 
     8with 'MooseX::KeyedMutex'; 
    99 
    1010# this is the storage object. it must support get()/set() 
    11 subtype 'StorageObject' 
     11subtype 'Data::Valve::BucketStore::Object::StorageObject' 
    1212    => as 'Object' 
    1313        => where { $_->can('get') && $_->can('set') } 
    … …  
    1616has 'store' => ( 
    1717    is => 'rw', 
    18     isa => 'StorageObject', 
     18    isa => 'Data::Valve::BucketStore::Object::StorageObject', 
    1919    required => 1 
    2020);