| blib/lib/Lingua/JA/Halfwidth/Katakana.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % | 
| statement | 13 | 13 | 100.0 | 
| branch | n/a | ||
| condition | n/a | ||
| subroutine | 5 | 5 | 100.0 | 
| pod | 0 | 1 | 0.0 | 
| total | 18 | 19 | 94.7 | 
| line | stmt | bran | cond | sub | pod | time | code | 
|---|---|---|---|---|---|---|---|
| 1 | package Lingua::JA::Halfwidth::Katakana; | ||||||
| 2 | |||||||
| 3 | 3 | 3 | 27919 | use 5.008_001; | |||
| 3 | 11 | ||||||
| 3 | 125 | ||||||
| 4 | 3 | 3 | 20 | use strict; | |||
| 3 | 3 | ||||||
| 3 | 91 | ||||||
| 5 | 3 | 3 | 22 | use warnings; | |||
| 3 | 7 | ||||||
| 3 | 98 | ||||||
| 6 | 3 | 3 | 13 | use Exporter qw/import/; | |||
| 3 | 6 | ||||||
| 3 | 371 | ||||||
| 7 | |||||||
| 8 | our $VERSION = '0.90'; | ||||||
| 9 | our @EXPORT = qw(InHalfwidthKatakana); | ||||||
| 10 | our @EXPORT_OK = qw(); | ||||||
| 11 | |||||||
| 12 | 5 | 5 | 0 | 310733 | sub InHalfwidthKatakana { "FF65\tFF9F"; } | ||
| 13 | |||||||
| 14 | 1; | ||||||
| 15 | __END__ |