The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
 / 
Terse-Plugin-UA-0.02
River stage one • 1 direct dependent • 1 total dependent
/ Terse::Plugin::UA

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:

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)