Cantella-Store-UUID

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.003003 2010-11-05 10:00EST
 - use Test::Fatal instead of Test::Exception for tests
 - skip tests if shared-mime-info isn't installed
 - add fix for "sub _eq" in File::Copy 2.10-2.12
0.003002 2010-06-01 13:00EST
 - Messed up release
0.003001 2010-06-01 12:00EST
 - Add Dir::Self to the list of test deps. No other changes.
0.003000 2010-02-23 13:00EST
 - Added mime-type and extension support
 - Added get/set/has/clear property methods
0.002001 2010-01-16

META.yml  view on Meta::CPAN

---
abstract: 'UUID based file storage'
author:
  - 'Guillermo Roditi (groditi) <groditi@cpan.org>'
build_requires:
  Dir::Self: 0
  Directory::Scratch: 0
  ExtUtils::MakeMaker: 6.42
  Test::Fatal: 0
  Test::More: 0
configure_requires:
  ExtUtils::MakeMaker: 6.42
distribution_type: module
generated_by: 'Module::Install version 1.00'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: Cantella-Store-UUID

Makefile.PL  view on Meta::CPAN

requires 'Path::Class' => '0.18';
requires 'Sub::Exporter';
requires 'File::MimeInfo' => '0.15';
requires 'namespace::autoclean' => '0.09';
requires 'MooseX::Types::Path::Class' => '0.05';
requires 'MooseX::Types::Data::GUID' => '0.001000';

#tests
test_requires 'Dir::Self';
test_requires 'Test::More';
test_requires 'Test::Fatal';
test_requires 'Directory::Scratch';

resources(
  'license', => 'http://dev.perl.org/licenses/',
  'repository', => 'http://github.com/arcanez/Cantella-Store-UUID',
);

WriteAll;

t/util.t  view on Meta::CPAN

use strict;
use warnings;

use FindBin '$Bin';
use Test::More;
use Test::Fatal;

use Path::Class qw(file dir);
use Cantella::Store::UUID::Util '_mkdirs';

my $tmp = dir($Bin)->subdir('var')->subdir('store-test');

if( -e $tmp){
  plan tests => 515;
  ok($tmp->rmtree, "setting up environment $!");
} else {

t/uuid-store.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More;
use Test::Fatal;
use Directory::Scratch;

use Dir::Self;
use Data::GUID;
use Path::Class qw(file dir);

use File::BaseDir qw(data_files);

my @files = data_files('mime/globs');
unless (@files) {