Test::Ping::Ties::BIND - Bind Tie variable to Test::Ping

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

Index

Code Index:

NAME

Top

Test::Ping::Ties::BIND - Bind 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::BIND;

use strict;
use warnings;

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

our $VERSION = '0.01';

sub TIESCALAR { return bless {}, shift;                    }
sub FETCH     { carp 'Usage: $p->bind($local_addr)';       }
sub STORE     { Test::Ping->_ping_object()->bind( $_[1] ); }

1;

__END__