36 |
|
|
37 |
sub print { |
sub print { |
38 |
my $self = shift; |
my $self = shift; |
39 |
warn "# print ",dump( @_ ); |
warn "# print ", join(' ', map { length $_ } @_ ); |
40 |
$self->{print}->( @_ ); |
$self->{_print}->( @_ ); |
41 |
} |
} |
42 |
|
|
43 |
sub request { |
sub request { |
45 |
|
|
46 |
if ( my $ref = ref($url) ) { |
if ( my $ref = ref($url) ) { |
47 |
die "url not URI but ", dump( $url ) unless $ref =~ m{^URI}; |
die "url not URI but ", dump( $url ) unless $ref =~ m{^URI}; |
48 |
|
} else { |
49 |
$url = URI->new($url); |
$url = URI->new($url); |
50 |
} |
} |
51 |
|
|
86 |
return $class; |
return $class; |
87 |
} |
} |
88 |
|
|
|
|
|
89 |
my $f; |
my $f; |
90 |
|
|
91 |
# shared run params |
# shared run params |