File: Unix.pm

package info (click to toggle)
libnet-cli-interact-perl 2.142720-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 420 kB
  • ctags: 127
  • sloc: perl: 1,907; makefile: 2
file content (34 lines) | stat: -rw-r--r-- 742 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
package Net::CLI::Interact::Transport::Platform::Unix;
{
  $Net::CLI::Interact::Transport::Platform::Unix::VERSION = '2.142720';
}

use Moo;
use Class::Load qw(try_load_class);

BEGIN {
    sub can_use_pty { return try_load_class('IO::Pty') }

    extends (can_use_pty()
        ? 'Net::CLI::Interact::Transport::Wrapper::Net_Telnet'
        : 'Net::CLI::Interact::Transport::Wrapper::IPC_Run');
}

{
    package # hide from pause
        Net::CLI::Interact::Transport::Platform::Options;

    use Moo;
    use Sub::Quote;
    use MooX::Types::MooseLike::Base qw(Int);

    extends 'Net::CLI::Interact::Transport::Wrapper::Options';

    has 'reap' => (
        is => 'rw',
        isa => Int,
        default => quote_sub('0'),
    );
}

1;