File Coverage

blib/lib/Metabrik/String/Psv.pm
Criterion Covered Total %
statement 9 10 90.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 15 86.6


line stmt bran cond sub pod time code
1             #
2             # $Id$
3             #
4             # string::psv Brik
5             #
6             package Metabrik::String::Psv;
7 1     1   763 use strict;
  1         3  
  1         34  
8 1     1   5 use warnings;
  1         2  
  1         26  
9              
10 1     1   5 use base qw(Metabrik::String::Csv);
  1         2  
  1         179  
11              
12             sub brik_properties {
13             return {
14 0     0 1   revision => '$Revision$',
15             tags => [ qw(unstable) ],
16             author => 'GomoR ',
17             license => 'http://opensource.org/licenses/BSD-3-Clause',
18             attributes => {
19             first_line_is_header => [ qw(0|1) ],
20             separator => [ qw(character) ],
21             header => [ qw($column_header_list) ],
22             encoding => [ qw(utf8|ascii) ],
23             },
24             attributes_default => {
25             first_line_is_header => 0,
26             header => [ ],
27             separator => '|',
28             encoding => 'utf8',
29             },
30             commands => {
31             encode => [ qw($data) ],
32             decode => [ qw($data) ],
33             },
34             };
35             }
36              
37             1;
38              
39             __END__