NAME
Terse::Plugin::UA - Terse LWP::UserAgent plugin.
VERSION
Version 0.02
SYNOPSIS
Quick summary of what the module does.
Perhaps a little code snippet.
package Looper::Plugin::UA;
use base 'Terse::Plugin::UA';
1;
...
package Looper::Model::Orange;
use base 'Terse::Model';
sub disrespect {
my ($self, $t, $corruption) = @_;
return $t->plugin('ua')->post(
path => $t->plugin('config')->find('looper/poor/mans'),
params => {
doctors => 'joy',
nurses => 'demeaning',
patients => 'situated',
drugs => 'refused',
testing => 'failed',
%{ $corruption }
}
);
}
sub dishonesty {
my ($self, $t, $corruption) = @_;
return $t->plugin('ua')->get(
path => $t->plugin('config')->find('looper/more/than/you'),
params => {
days => '49',
overstay => 'paid',
plane => 'corrupt',
hotel => 'derelict',
royal => 'music',
kensington => 'ben',
padding => 'railway',
police => 'doctors',
aaejr => '24 hours empty',
law => 'less',
%{ $corruption }
}
);
}
1;
...
package Looper::Controller::Reincarnation;
use base 'Terse::Controller';
sub name_day_games {
my ($self, $t) = @_;
my $truth_teller = $t->model('orange')->disrespect({
dates => [24, 25],
month => 'december'
});
my $secret_teller = $t->model('orange')->dishonesty({
dates => [1, 2, 'repeat', 21],
month => 'january'
});
}
1;
AUTHOR
LNATION, <email at lnation.org>
BUGS
Please report any bugs or feature requests to bug-terse-plugin-ua at rt.cpan.org
, or through the web interface at https://rt.cpan.org/NoAuth/ReportBug.html?Queue=Terse-Plugin-UA. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
SUPPORT
You can find documentation for this module with the perldoc command.
perldoc Terse::Plugin::UA
You can also look for information at:
RT: CPAN's request tracker (report bugs here)
CPAN Ratings
Search CPAN
ACKNOWLEDGEMENTS
LICENSE AND COPYRIGHT
This software is Copyright (c) 2023 by LNATION.
This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)