122 |
$url =~ s/\s+-\S+//g; # remove command line options |
$url =~ s/\s+-\S+//g; # remove command line options |
123 |
$url =~ s/\W+/-/g; |
$url =~ s/\W+/-/g; |
124 |
|
|
125 |
my $time = $data->{time} = time(); |
my $time = time(); |
126 |
|
|
|
my @caller_name = ( qw/package file line sub/ ); |
|
127 |
my @caller = caller(0); |
my @caller = caller(0); |
128 |
$caller[3] = (caller(1))[3]; |
$caller[3] = (caller(1))[3]; |
129 |
$caller[3] =~ s{^.+::}{}; # stip package name from sub |
$caller[3] =~ s{^.+::}{}; # stip package name from sub |
130 |
$data->{ $caller_name[$_] } = $caller[$_] foreach ( 0 .. $#caller_name ); |
$data->{package} = { |
131 |
|
time => $time, |
132 |
|
name => $caller[0], |
133 |
|
line => $caller[2], |
134 |
|
caller => $caller[3], |
135 |
|
}; |
136 |
|
|
137 |
if ( $ENV{DEBUG} ) { |
if ( $ENV{DEBUG} ) { |
138 |
|
|