Beta Shell v2.0

Beta Shell v2.0 · web2.us.cloudlogin.co

[FM] [CMD] [PHP] [DB] [INFO] [SEC]

File Manager

~ /usr/share/doc/perl-Mouse/t/901_todo

3 items

Name	Size	Perms	Modified	Actions
[ .. / .. ]
attribute_warn.t	708 B	-rw-r--r--	2019-10-27 19:43:23	Edit Del

Editing: attribute_warn.t (708 B)

Path: /usr/share/doc/perl-Mouse/t/901_todo/attribute_warn.tBack

use strict;
use warnings;
use Test::More;

plan skip_all => 'todo';

# See
#  t/020_attributes/011_more_attr_delegation.t
#  https://github.com/gfx/p5-Mouse/issues/86
#  https://github.com/gfx/p5-Mouse/pull/90
{
    package A;
    use Mouse;

    # if "handles" is a Regexp, "isa" is required. So this block dies
    eval { has attr => (is => "ro", handles => qr/./) };

    # but "attr" is registered somehow, so this emits
    # "You are overwriting a locally defined method (attr) with an accessor"
    # I think this implies Mouse may leak something...
    my @warn;
    {
        local $SIG{__WARN__} = sub { push @warn, @_ };
        has attr => (is => 'ro');
    }
    ::is @warn, 0;
}

done_testing;