Const-Fast

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

Revision history for Const-Fast

0.014     2013-05-28 02:32:48 Europe/Amsterdam
          Pass coderefs and globrefs unchanged
          Conversion from Test::Exception to Test::Fatal (Karen Etheridge)
          Convert to Module::Build::Tiny

0.013     2012-09-07 23:50:25 Europe/Amsterdam
          Lazy load Storable, it's usually not necessary

0.012     2012-08-09 13:51:29 Europe/Bucharest
          Depend on Test::Exception 0.29
          Switch to Sub::Exporter::Progressive, for a faster startup

0.011     2012-02-24 22:48:26 Europe/Amsterdam

META.json  view on Meta::CPAN

            "perl" : "5.008",
            "strict" : "0",
            "warnings" : "0"
         }
      },
      "test" : {
         "requires" : {
            "Data::Dumper" : "0",
            "File::Find" : "0",
            "File::Temp" : "0",
            "Test::Fatal" : "0",
            "Test::More" : "0.88"
         }
      }
   },
   "release_status" : "stable",
   "resources" : {
      "bugtracker" : {
         "mailto" : "bug-const-fast at rt.cpan.org",
         "web" : "http://rt.cpan.org/Public/Dist/Display.html?Name=Const-Fast"
      },

META.yml  view on Meta::CPAN

---
abstract: 'Facility for creating read-only scalars, arrays, and hashes'
author:
  - 'Leon Timmermans <fawaka@gmail.com>'
build_requires:
  Data::Dumper: 0
  File::Find: 0
  File::Temp: 0
  Test::Fatal: 0
  Test::More: 0.88
configure_requires:
  Module::Build::Tiny: 0.021
dynamic_config: 0
generated_by: 'Dist::Zilla version 4.300034, CPAN::Meta::Converter version 2.120921'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: Const-Fast

t/10-basics.t  view on Meta::CPAN

#!perl

# Test the Const function

use strict;
use warnings FATAL => 'all';
use Test::More 0.88;
use Test::Fatal qw(exception lives_ok);

use Const::Fast;

sub throws_readonly(&@) {
	my ($sub, $desc) = @_;
	my ($file, $line) = (caller)[1,2];
	my $error = qr/\AModification of a read-only value attempted at \Q$file\E line $line\.\Z/;
	local $Test::Builder::Level = $Test::Builder::Level + 1;
	like(exception { $sub->() }, $error, $desc);
}