From baf069a1884fc41d89429158c32a2a7ac2bb7691 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Natal=20Ng=C3=A9tal?= Date: Wed, 24 Nov 2010 10:00:34 +0100 Subject: [PATCH] Use carp for manage errors. --- lib/Algorithm/AhoCorasick/SearchMachine.pm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lib/Algorithm/AhoCorasick/SearchMachine.pm b/lib/Algorithm/AhoCorasick/SearchMachine.pm index 69d40d4..c3d7d62 100644 --- a/lib/Algorithm/AhoCorasick/SearchMachine.pm +++ b/lib/Algorithm/AhoCorasick/SearchMachine.pm @@ -2,18 +2,19 @@ package Algorithm::AhoCorasick::SearchMachine; use strict; use warnings; +use Carp; sub new { my $class = shift; if (!@_) { - die "no keywords"; + croak "no keywords"; } my %keywords; foreach (@_) { if (!defined($_) || ($_ eq '')) { - die "empty keyword"; + croak "empty keyword"; } $keywords{$_} = 1; @@ -135,7 +136,7 @@ sub char { my $self = shift; if (!exists($self->{char})) { - die "root node has no character"; + croak "root node has no character"; } return $self->{char}; @@ -145,7 +146,7 @@ sub parent { my $self = shift; if (!exists($self->{parent})) { - die "root node has no parent"; + croak "root node has no parent"; } return $self->{parent};