feature-tests/error.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

use Irssi;
our $VERSION = '0.1';
our %IRSSI = (
              authors     => 'shabble',
              contact     => 'shabble+irssi@metavore.org',
              name        => '',
              description => '',
              license     => 'MIT',
              updated     => '$DATE'
             );

Irssi::timeout_add_once(1000, 'die_horribly', undef);

sub die_horribly {
    die "Oh noes, I broke!";
}