File: Exception.pm

package info (click to toggle)
libtime-out-perl 1.0.0-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 160 kB
  • sloc: perl: 165; makefile: 2
file content (16 lines) | stat: -rw-r--r-- 430 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
use strict;
use warnings;

package Time::Out::Exception;

# https://stackoverflow.com/questions/23407085/why-does-eq-not-work-when-one-argument-has-overloaded-stringification
use overload '""' => sub { 'timeout' }, fallback => 1;

# keeping the following $VERSION declaration on a single line is important
#<<<
use version 0.9915; our $VERSION = version->declare( '1.0.0' );
#>>>

sub new { shift; bless { @_ }, __PACKAGE__ }

1;