package Test::Ping::Ties::PROTO;

use strict;
use warnings;

use Net::Ping;
use Tie::Scalar;

our $VERSION = '0.04';

sub TIESCALAR { return bless {}, shift;                        }
sub FETCH     { return Test::Ping->_ping_object()->{'proto'};  }
sub STORE     { Test::Ping->_ping_object()->{'proto'} = $_[1]; }

1;

__END__

=head1 NAME

Test::Ping::Ties::PROTO - Protocol Tie variable to Test::Ping

=head1 VERSION

Version 0.04

=head1 DESCRIPTION

In order to allow complete procedural interface to Net::Ping, even though it's
an object, I use a Tie::Scalar interface. Every variable is also defined
separately to make it cleaner and easier.

At some point they might be joined together in a single file, but I doubt it.

Please refrain from using this directly.

=head1 EXPORT

None.

=head1 COPYRIGHT & LICENSE

Copyright 2009-2010 Sawyer X, all rights reserved.

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