One Hat Cyber Team

Your IP: 216.73.216.177
Server IP: 50.6.168.112
Server: Linux server-617809.webnetzimbabwe.com 5.14.0-570.25.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 9 04:57:09 EDT 2025 x86_64
Server Software: Apache
PHP Version: 8.4.10
Buat File | Buat Folder

Dir : ~/home/.cpan/build/Test-Exception-0.43-0/t/

View File Name : rt.t

use strict;
use warnings;
use Test::More 'no_plan';
use Test::Exception;

{   package Foo;
    use Carp qw( confess );
    sub an_abstract_method { shift->subclass_responsibility; }
    sub subclass_responsibility {
        my $class = shift;
        my $method = (caller(1))[3];
        $method =~ s/.*:://;
        confess( "abstract method '$method' not implemented for $class" );
    }
}

throws_ok { Foo->an_abstract_method }
    qr/abstract method 'an_abstract_method'/, 'RT 11846: throws_ok breaks tests that depend on caller stack: working';