File Coverage

blib/lib/Net/OpenSSH/Constants.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	24	24	100.0

package Net::OpenSSH::Constants;

our $VERSION = '0.51_07';

use strict;
use warnings;
use Carp;
use Scalar::Util ();

require Exporter;
our @ISA = qw(Exporter);
our %EXPORT_TAGS = (error => [], _state => []);

my %error = ( OSSH_MASTER_FAILED => 1,
              OSSH_SLAVE_FAILED => 2,
              OSSH_SLAVE_PIPE_FAILED => 3,
	      OSSH_SLAVE_TIMEOUT => 4,
	      OSSH_SLAVE_CMD_FAILED => 5,
	      OSSH_SLAVE_SFTP_FAILED => 6,
              OSSH_ENCODING_ERROR => 7
            );

for my $key (keys %error) {
    no strict 'refs';
    my $value = $error{$key};
    *{$key} = sub () { $value };
    push @{$EXPORT_TAGS{error}}, $key
}

my @states = qw(_STATE_START
                _STATE_LOGIN
                _STATE_AWAITING_MUX
                _STATE_RUNNING
                _STATE_KILLING
                _STATE_GONE
                _STATE_STOPPED);

my $last_value;
for my $state (@states) {
    no strict 'refs';
    my $value = Scalar::Util::dualvar(++$last_value, $state);
    *{$state} = sub () { $value };
    push @{$EXPORT_TAGS{_state}}, $state
}

our @EXPORT_OK = map { @{$EXPORT_TAGS{$_}} } keys %EXPORT_TAGS;
$EXPORT_TAGS{all} = [@EXPORT_OK];

1;

__END__