The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package RPC::Serialized::Handler::YATG::Retrieve;
{
  $RPC::Serialized::Handler::YATG::Retrieve::VERSION = '5.130520';
}

use strict;
use warnings FATAL => 'all';

use base 'RPC::Serialized::Handler';
use YATG::Retrieve::Disk;

sub invoke {
    my $self = shift;
    return YATG::Retrieve::Disk::retrieve(@_);
}

1;

# ABSTRACT: RPC handler for YATG::Retrieve::Disk

__END__

=pod

=head1 NAME

RPC::Serialized::Handler::YATG::Retrieve - RPC handler for YATG::Retrieve::Disk

=head1 VERSION

version 5.130520

=head1 DESCRIPTION

This module implements an L<RPC::Serialized> handler for
L<YATG::Retrieve::Disk>.  There is no special configuration, and all received
parameters are passed on to C<YATG::Retrieve::Disk::retrieve()> verbatim.

=head1 REQUIREMENTS

Install the following additional modules to use this plugin:

=over 4

=item *

L<RPC::Serialized>

=item *

L<Tile::File::FixedRecLen>

=item *

L<integer>

=item *

L<Time::Local>

=item *

L<Fcntl>

=back

=head1 INSTALLATION

You'll need to run an RPC::Serialized server, of course, and configure it
to serve this handler. There are files in the C<examples/> folder of this
distribution to help with that, e.g. C<rpc-serialized.server.yml>:

 ---
 # configuration for rpc-serialized server with YATG handlers
 rpc_serialized:
     handlers:
         yatg_store:    "RPC::Serialized::Handler::YATG::Store"
         yatg_retrieve: "RPC::Serialized::Handler::YATG::Retrieve"
 net_server:
     port: 1558
     user: daemon
     group: daemon

You should head over to the RPC::Serialized documentation to learn how to
set that up. We use a pre-forking L<Net::Server> based implementation to
receive port traffic data and store to disk, then serve it back out to CGI on
a web server.

=head1 SEE ALSO

=over 4

=item L<RPC::Serialized>

=back

=head1 AUTHOR

Oliver Gorwits <oliver@cpan.org>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2013 by University of Oxford.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut