view release on metacpan or  search on metacpan

t/info/reserved_keys.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use Test::More tests => 1;
use Test::Fatal;

{
    package Data::Collector::Info::One;
    use Moose;
    extends 'Data::Collector::Info';
    sub info_keys { ['this'] }

    package Data::Collector::Info::Two;
    use Moose;
    extends 'Data::Collector::Info';
    sub info_keys { ['this'] }
}

my $info;

like(
    exception {
        $info = Data::Collector::Info::One->new();
        $info = Data::Collector::Info::Two->new();
    },
    qr/^Sorry, key already reserved/,
    'Key already reserved',
);