wee cleanup
This commit is contained in:
parent
45a79a80f3
commit
5f598ee4e9
|
@ -40,15 +40,13 @@ sub fill_form {
|
||||||
|
|
||||||
sub return {
|
sub return {
|
||||||
my ( $self, $mech ) = @_;
|
my ( $self, $mech ) = @_;
|
||||||
return (1,$mech->response->header('Location')) if $mech->response->is_redirect;
|
return (1, $mech->response->header('Location')) if $mech->response->is_redirect;
|
||||||
return (0,'Cannot find URL');
|
return (0, 'Cannot find URL');
|
||||||
}
|
}
|
||||||
|
|
||||||
sub _credentials { ($ENV{WEREPASTE_USER}, $ENV{WEREPASTE_PASS}) }
|
sub _credentials { ($ENV{WEREPASTE_USER}, $ENV{WEREPASTE_PASS}) }
|
||||||
|
|
||||||
1;
|
1;
|
||||||
|
|
||||||
|
|
||||||
__END__
|
__END__
|
||||||
=pod
|
=pod
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue