File Coverage

blib/lib/TM/Materialized/AsTMa.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::AsTMa;
2              
3 11     11   343160 use TM::Materialized::Stream;
  11         36  
  11         532  
4 11     11   65 use base qw (TM::Materialized::Stream);
  11         19  
  11         752  
5              
6 11     11   26338 use Class::Trait qw(TM::Serializable::AsTMa);
  0            
  0            
7             use Data::Dumper;
8              
9             =pod
10              
11             =head1 NAME
12              
13             TM::Materialized::AsTMa - Topic Maps, Parsing of AsTMa instances.
14              
15             =head1 SYNOPSIS
16              
17             use TM::Materialized::AsTMa;
18             my $tm = new TM::Materialized::AsTMa (inline => '....astma code here...');
19             $tm->sync_in;
20             # ...
21              
22             # or
23             my $tm = new TM::Materialized::AsTMa (file => 'test.atm');
24             # ...
25             $tm->sync_in;
26              
27             =head1 DESCRIPTION
28              
29             This package provides parsing functionality for AsTMa= instances. AsTMa= is a textual shorthand
30             notation for Topic Map authoring. Currently, AsTMa= 1.3 and the (experimental) AsTMa= 2.0 is
31             supported. See L for details.
32              
33             =head1 INTERFACE
34              
35             =head2 Constructor
36              
37             The constructor expects a hash as described in L.
38              
39             =cut
40              
41             sub new {
42             my $class = shift;
43             my %options = @_;
44             $options{psis} = $TM::PSI::topicmaps; # make sure we have what we need
45             return bless $class->SUPER::new (%options), $class;
46             }
47              
48             =pod
49              
50             =head1 SEE ALSO
51              
52             L, L
53              
54             =head1 AUTHOR INFORMATION
55              
56             Copyright 200[1-6], Robert Barta , All rights reserved.
57              
58             This library is free software; you can redistribute it and/or modify it under the same terms as Perl
59             itself. http://www.perl.com/perl/misc/Artistic.html
60              
61             =cut
62              
63             our $VERSION = '0.18';
64             our $REVISION = '$Id: AsTMa.pm,v 1.19 2006/11/23 10:02:55 rho Exp $';
65              
66             1;
67              
68             __END__