File: clean.t

package info (click to toggle)
libmoosex-declare-perl 0.43-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, stretch
  • size: 564 kB
  • ctags: 82
  • sloc: perl: 1,240; makefile: 9
file content (23 lines) | stat: -rw-r--r-- 475 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
use MooseX::Declare;
use Test::More tests => 4;
use Test::Fatal;

class Foo is dirty {
    use Carp qw/croak/;
    use MooseX::Types::Moose qw/Str/;
    use MooseX::Types::Structured qw/Tuple/;

    clean;

    method fail ($class:) { croak 'korv' }
    method Tuple ($class:) { return Tuple[Str, Str] }
}

ok(!Foo->can('croak'));
ok( Foo->can('Tuple'));

is(Foo->Tuple->name, 'MooseX::Types::Structured::Tuple[Str,Str]');

like( exception {
    Foo->fail;
}, qr/\bkorv\b/);