package Spider::URL; use strict; sub new{ my ($class,$url,$target,$current_depth,$referer) = @_; my $object = bless {}, $class; $object->{url} = $url; $object->{current_depth} = $current_depth; $object->{target} = $target; $object->{referer} = $referer; return $object; } 1;