/usr/share/perl5/TM/Serializable/CTM.pm is in libtm-perl 1.56-7.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 | package TM::Serializable::CTM;
use Class::Trait 'base';
use Class::Trait 'TM::Serializable';
use Data::Dumper;
=pod
=head1 NAME
TM::Serializable::CTM - Topic Maps, trait for parsing of CTM instances.
=head1 SYNOPSIS
# this is not an end-user package
# see the source of TM::Materialized::CTM
=head1 DESCRIPTION
This package provides parsing functionality for CTM instances with the exceptions listed
below.
http://www.isotopicmaps.org/ctm/ctm.html
=begin html
<BLOCKQUOTE>
<A HREF="http://www.isotopicmaps.org/ctm/ctm.html">http://www.isotopicmaps.org/ctm/ctm.html</A>
</BLOCKQUOTE>
=end html
=begin man
http://www.isotopicmaps.org/ctm/ctm.html
=end man
=head2 Deviations from the CTM Specification
=over
=back
=head1 INTERFACE
=head2 Methods
=over
=item B<deserialize>
This method tries to parse the passed in text stream as CTM instance. It will raise an exception on
the first parse error. On success, it will return the map object.
=cut
sub deserialize {
my $self = shift;
my $content = shift;
use TM::CTM::Parser;
my $ap = new TM::CTM::Parser (store => $self);
$ap->parse ($content); # we parse content into the ap object component 'store'
return $self;
}
=pod
=item B<serialize>
This is not implemented.
=cut
sub serialize {
$TM::log->logdie ( scalar __PACKAGE__ .": not implemented" );
}
=pod
=back
=head1 SEE ALSO
L<TM>
=head1 AUTHOR INFORMATION
Copyright 200[8], Robert Barta <drrho@cpan.org>, All rights reserved.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl
itself. http://www.perl.com/perl/misc/Artistic.html
=cut
our $VERSION = '0.2';
our $REVISION = '$Id$';
1;
__END__
|