view release on metacpan or  search on metacpan

t/pp/06_invocant.t  view on Meta::CPAN

        skip("Skipping nasty test unless AUTOMATED_TESTING", 1);
    }
    ok(!!_INVOCANT($false_obj2), 'Testing null class as an invocant');
}

package Params::Util::Test::_INVOCANT::Tied;

sub TIESCALAR
{
    my ($class, $value) = @_;
    return bless \$value => $class;
}

t/xs/06_invocant.t  view on Meta::CPAN

        skip("Skipping nasty test unless AUTOMATED_TESTING", 1);
    }
    ok(!!_INVOCANT($false_obj2), 'Testing null class as an invocant');
}

package Params::Util::Test::_INVOCANT::Tied;

sub TIESCALAR
{
    my ($class, $value) = @_;
    return bless \$value => $class;
}