File Coverage

blib/lib/RDF/SKOS/Scheme.pm
Criterion Covered Total %
statement 6 12 50.0
branch n/a
condition n/a
subroutine 2 4 50.0
pod 1 2 50.0
total 9 18 50.0


line stmt bran cond sub pod time code
1             package RDF::SKOS::Scheme;
2              
3 5     5   26 use strict;
  5         9  
  5         163  
4 5     5   25 use warnings;
  5         10  
  5         663  
5              
6             =head1 NAME
7              
8             RDF::SKOS::Scheme - SKOS - Concept Scheme Class
9              
10             =head1 SYNOPSIS
11              
12             use RDF::SKOS;
13             my $skos = new RDF::SKOS;
14             # ...
15             my @ss = $skos->schemes;
16             #
17             my $scheme = $skos->scheme ('some_scheme');
18             my @tops = $scheme->topConcepts;
19              
20             =head1 DESCRIPTION
21              
22             This class simply captures a SKOS I. Nothing exciting.
23              
24             =head1 INTERFACE
25              
26             =head2 Constructor
27              
28             The constructor expects as first parameter the SKOS object itself, then the ID of the scheme.
29              
30             =cut
31              
32             sub new {
33 0     0 0   my $class = shift;
34 0           my $skos = shift;
35 0           my $cid = shift;
36 0           return bless { @_, skos => $skos, id => $cid }, $class;
37             }
38              
39             =pod
40              
41             =head2 Methods
42              
43             =over
44              
45             =item B
46              
47             I<@cs> = I<$scheme>->topConcepts
48              
49             This returns a list of L objects.
50              
51             =cut
52              
53             sub topConcepts {
54 0     0 1   my $self = shift;
55 0           return $self->{skos}->topConcepts ($self->{id});
56             }
57              
58             =pod
59              
60             =back
61              
62             =head1 AUTHOR
63              
64             Robert Barta, C<< >>
65              
66             =head1 BUGS
67              
68             Please report any bugs or feature requests to C, or through
69             the web interface at L. I will be notified, and then you'll
70             automatically be notified of progress on your bug as I make changes.
71              
72             =head1 COPYRIGHT & LICENSE
73              
74             Copyright 2009 Robert Barta, all rights reserved.
75              
76             This program is free software; you can redistribute it and/or modify it under the same terms as Perl
77             itself.
78              
79             =cut
80              
81             our $VERSION = '0.01';
82              
83             "against all odds";
84              
85             __END__