File Coverage

blib/lib/TM/Materialized/LTM.pm
Criterion Covered Total %
statement 7 9 77.7
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 12 83.3


line stmt bran cond sub pod time code
1             package TM::Materialized::LTM;
2              
3 1     1   2598 use TM::Materialized::Stream;
  1         3  
  1         57  
4 1     1   8 use base qw (TM::Materialized::Stream);
  1         2  
  1         75  
5              
6 1     1   590 use Class::Trait 'TM::Serializable::LTM';
  0            
  0            
7              
8             use Data::Dumper;
9              
10             =pod
11              
12             =head1 NAME
13              
14             TM::Materialized::LTM - Topic Maps, Parsing of LTM instances.
15              
16             =head1 SYNOPSIS
17              
18             # reading a topic map description from a file/url
19             use TM::Materialized::LTM
20             $tm = new TM::Materialized::LTM (file => 'mymap.ltm');
21             $tm->sync_in();
22              
23             =head1 DESCRIPTION
24              
25             This package provides parsing functionality for LTM instances. Please see L
26             for details how well LTM is supported.
27              
28             =head1 INTERFACE
29              
30             =head2 Constructor
31              
32             The constructor expects a hash as described in L.
33              
34             =cut
35              
36             sub new {
37             my $class = shift;
38             my %options = @_;
39             $options{psis} = $TM::PSI::topicmaps; # make sure we have what we need
40             return bless $class->SUPER::new (%options), $class;
41             }
42              
43             =pod
44              
45             =head1 SEE ALSO
46              
47             L
48              
49             =head1 AUTHOR INFORMATION
50              
51             Copyright 200[1-6], Robert Barta , All rights reserved.
52              
53             This library is free software; you can redistribute it and/or modify it under the same terms as Perl
54             itself. http://www.perl.com/perl/misc/Artistic.html
55              
56             =cut
57              
58             our $VERSION = '0.3';
59             our $REVISION = '$Id: LTM.pm,v 1.7 2006/12/29 09:33:42 rho Exp $';
60              
61             1;
62              
63             __END__