File Coverage

blib/lib/PDLA/PP/Signature.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition 1 2 50.0
subroutine 5 5 100.0
pod 0 1 0.0
total 22 24 91.6


line stmt bran cond sub pod time code
1             =head1 NAME
2              
3             PDLA::PP::Signature - Internal module to handle signatures
4              
5             =head1 DESCRIPTION
6              
7             Internal module to handle signatures
8              
9             =head1 SYNOPSIS
10              
11             use PDLA::PP::Signature;
12              
13              
14             =cut
15              
16             package PDLA::PP::Signature;
17 3     3   1356 use PDLA::PP::PdlParObj;
  3         9  
  3         124  
18 3     3   1300 use PDLA::PP::Dims;
  3         8  
  3         81  
19 3     3   21 use Carp;
  3         5  
  3         150  
20 3     3   18 use SelfLoader;
  3         6  
  3         460  
21              
22             @ISA = qw/ SelfLoader /;
23              
24             # we pass on $bvalflag to the PdlParObj's created by parse
25             # (a hack for PdlParObj::get_xsdatapdecl() which should
26             # disappear when (if?) things are done sensibly)
27             #
28             sub new {
29 6     6 0 17 my ($type,$str,$bvalflag) = @_;
30 6   50     36 $bvalflag ||= 0;
31 6         36 my ($namep,$objp) = parse($str,$bvalflag);
32 6         75 return bless {Names => $namep, Objects => $objp},$type;
33             }
34              
35             *with = \&new;
36              
37             1;
38              
39             =head1 AUTHOR
40              
41             Copyright (C) Tuomas J. Lukka 1997 (lukka@husc.harvard.edu) and by Christian
42             Soeller (c.soeller@auckland.ac.nz).
43             All rights reserved. There is no warranty. You are allowed
44             to redistribute this software / documentation under certain
45             conditions. For details, see the file COPYING in the PDLA
46             distribution. If this file is separated from the PDLA distribution,
47             the copyright notice should be included in the file.
48              
49              
50             =cut
51              
52             __DATA__