File Coverage

lib/POSIX/1003/Termios.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 26 26 100.0


line stmt bran cond sub pod time code
1             # Copyrights 2011-2015 by [Mark Overmeer].
2             # For other contributors see ChangeLog.
3             # See the manual pages for details on the licensing terms.
4             # Pod stripped from pm file by OODoc 2.01.
5 3     3   13192 use warnings;
  3         3  
  3         67  
6 3     3   9 use strict;
  3         3  
  3         71  
7              
8             package POSIX::1003::Termios;
9 3     3   8 use vars '$VERSION';
  3         4  
  3         100  
10             $VERSION = '0.99_07';
11              
12 3     3   7 use base 'POSIX::1003::Module', 'POSIX::Termios';
  3         4  
  3         933  
13              
14             my @speed = qw/
15             B0 B110 B1200 B134 B150 B1800 B19200 B200 B2400
16             B300 B38400 B4800 B50 B600 B75 B9600
17             /;
18              
19             my @flags = qw/
20             BRKINT CLOCAL ECHONL HUPCL ICANON ICRNL IEXTEN IGNBRK IGNCR IGNPAR
21             INLCR INPCK ISIG ISTRIP IXOFF IXON NCCS NOFLSH OPOST PARENB PARMRK
22             PARODD TOSTOP VEOF VEOL VERASE VINTR VKILL VMIN VQUIT VSTART VSTOP
23             VSUSP VTIME
24             /;
25              
26             my @actions = qw/
27             TCSADRAIN TCSANOW TCOON TCION TCSAFLUSH TCIOFF TCOOFF
28             /;
29              
30             my @flush = qw/TCIOFLUSH TCOFLUSH TCIFLUSH/;
31             my @functions = qw/
32             tcdrain tcflow tcflush tcsendbreak
33             ttyname
34             /;
35              
36             our %EXPORT_TAGS =
37             ( speed => \@speed
38             , flags => \@flags
39             , actions => \@actions
40             , flush => \@flush
41             , constants => [@speed, @flags, @actions, @flush]
42             , functions => \@functions
43             );
44              
45              
46             # Only needed by manual.PL
47             sub _create_constant($)
48 60     60   51 { my ($class, $name) = @_;
49 3     3   11 no strict 'refs';
  3         3  
  3         157  
50 60     2   143 sub { &{"POSIX::$name"} };
  2         663  
  2         16  
51             }
52              
53             1;