__ __ __ __ _____ _ _ _____ _ _ _ | \/ | \ \ / / | __ \ (_) | | / ____| | | | | | \ / |_ __\ V / | |__) | __ ___ ____ _| |_ ___ | (___ | |__ ___| | | | |\/| | '__|> < | ___/ '__| \ \ / / _` | __/ _ \ \___ \| '_ \ / _ \ | | | | | | |_ / . \ | | | | | |\ V / (_| | || __/ ____) | | | | __/ | | |_| |_|_(_)_/ \_\ |_| |_| |_| \_/ \__,_|\__\___| |_____/|_| |_|\___V 2.1 if you need WebShell for Seo everyday contact me on Telegram Telegram Address : @jackleetFor_More_Tools:
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';
| Name | Type | Size | Permission | Actions |
|---|---|---|---|---|
| Exception.t | File | 4.44 KB | 0644 |
|
| caller.t | File | 702 B | 0644 |
|
| edge-cases.t | File | 2.07 KB | 0644 |
|
| import.t | File | 189 B | 0644 |
|
| isa.t | File | 409 B | 0644 |
|
| lives_and.t | File | 880 B | 0644 |
|
| preserve.t | File | 488 B | 0644 |
|
| return.t | File | 1.43 KB | 0644 |
|
| rt.t | File | 550 B | 0644 |
|
| stacktrace.t | File | 1 KB | 0644 |
|
| throws_ok.t | File | 205 B | 0644 |
|