package Test::Ping::Ties::PROTO;
$Test::Ping::Ties::PROTO::VERSION = '0.204';
use strict;
use warnings;
# ABSTRACT: Protocol Tie variable to Test::Ping

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

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




=encoding UTF-8

=head1 NAME

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

=head1 VERSION

version 0.204


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


=head1 AUTHOR

Sawyer X


This software is Copyright (c) 2019 by Sawyer X.

This is free software, licensed under:

  The MIT (X11) License