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
|
use TM;
use constant DL => "\n\n";
my $TMVERSION = shift @ARGV || die "no version provided";
print <<EOT;
package TM::Axes;
our \$VERSION = '0.2';
=pod
=head1 NAME
TM::Axes - Topic Maps, Axes for TM::match*
=head1 DESCRIPTION
The L<TM> module offers the method C<match> (and friends) to query assertions in a TM data
structure. While there is a generic search specification, it will be too slow. Instead some axes
have been implemented specifically. These are listed below.
=head1 SEARCH SPECIFICATIONS
Automatically generated from TM ($TMVERSION)
EOT
print "=over".DL;
foreach my $k (sort keys %TM::forall_handlers) {
my $v = $TM::forall_handlers{$k};
print "=item Code:".($k || '<empty>').DL;
print $v->{desc}.DL;
use Data::Dumper;
my @s = split /\n/, Dumper $v->{params};
pop @s;
shift @s;
print join "\n", @s;
print DL
}
print "=back".DL;
print <<EOT;
=head1 SEE ALSO
L<TM>
=head1 COPYRIGHT AND LICENSE
Copyright 200[8] by Robert Barta, E<lt>drrho\@cpan.orgE<gt>
This library is free software; you can redistribute it and/or modify it under the same terms as Perl
itself.
=cut
1;
EOT
|
