Test::Ping::Ties::SERVICE_CHECK - Service Check Tie variable to Test::Ping

Test-Ping documentation Contained in the Test-Ping distribution.

Index

Code Index:

NAME

Top

Test::Ping::Ties::SERVICE_CHECK - Service Check Tie variable to Test::Ping

VERSION

Top

Version 0.01

DESCRIPTION

Top

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.

EXPORT

Top

None.

COPYRIGHT & LICENSE

Top

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.

Test-Ping documentation Contained in the Test-Ping distribution. 
package Test::Ping::Ties::SERVICE_CHECK;

use strict;
use warnings;

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

our $VERSION = '0.01';

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

1;

__END__