blib/lib/PerlIO/fse.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 14 | 15 | 93.3 |
branch | 1 | 2 | 50.0 |
condition | n/a | ||
subroutine | 5 | 5 | 100.0 |
pod | n/a | ||
total | 20 | 22 | 90.9 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | package PerlIO::fse; | ||||||
2 | |||||||
3 | 2 | 2 | 64145 | use 5.008_001; | |||
2 | 9 | ||||||
2 | 76 | ||||||
4 | 2 | 2 | 11 | use strict; | |||
2 | 4 | ||||||
2 | 109 | ||||||
5 | |||||||
6 | our $VERSION = '0.02'; | ||||||
7 | |||||||
8 | 2 | 2 | 20 | use XSLoader; | |||
2 | 10 | ||||||
2 | 103 | ||||||
9 | XSLoader::load(__PACKAGE__, $VERSION); | ||||||
10 | |||||||
11 | 2 | 2 | 45228 | use Encode (); | |||
2 | 39741 | ||||||
2 | 166 | ||||||
12 | |||||||
13 | sub import{ | ||||||
14 | 2 | 2 | 16 | my $class = shift; | |||
15 | |||||||
16 | 2 | 50 | 60 | if(@_){ | |||
17 | 0 | $class->set_fse(@_); | |||||
18 | } | ||||||
19 | } | ||||||
20 | |||||||
21 | 1; | ||||||
22 | __END__ |