File Coverage

blib/lib/RDF/SKOS/OeNACE.pm

Criterion	Covered	Total	%
statement	71	78	91.0
branch	13	16	81.2
condition			n/a
subroutine	18	25	72.0
pod	18	19	94.7
total	120	138	86.9

package RDF::SKOS::OeNACE;

use strict;
use warnings;

use Data::Dumper;

use base 'RDF::SKOS';

use Text::CSV_XS;
my $csv = Text::CSV_XS->new ({
    quote_char          => '"',
    sep_char            => ';',
    binary => 1
			     });

=head1 NAME

RDF::SKOS::OeNACE - SKOS - OeNACE Classification Data

=head1 SYNOPSIS

   use RDF::SKOS::OeNACE;
   my $oenace = new RDF::SKOS::OeNACE;

   # this is a subclass of RDF::SKOS
   @cs = $oenace->concepts;
   ...

=head1 DESCRIPTION

To quote from L

   Auf nationaler Ebene wird ab 2008 die ÃNACE 2008 angewandt. Diese
   Aktivitätsklassifikation untergliedert die europäische NACE
   mittels Unterklassen noch detaillierter, sodass österreichische
   Spezifika berücksichtigt werden können. Ihr Code ist 5-stellig
   und stimmt bis zur 4. Stelle mit der NACE überein. Die
   Unterklassen werden dabei durch die mit Bindestrich abgetrennte
   letzte Ziffer des Codes dargestellt.

B: I is the usual euphemism of our local
buerocracy. Austria is ... special.

This package implements an SKOS view over this data. It is a subclass L.

=head2 SKOS Interpretations

=over

=item

The data contains german (C) and english (C) preferred labels.

=item

As hidden label the alphanumeric code is used. It is also the ID.

=item

No other I, I, I, .... are available.

=item

There is no I information.

=item

As for the parent class, there is no *Match functionality.

=back


=head2 Limitations

=over

=item

C does not respect transitivity. Same with C.

=back

=head1 INTERFACE

=head2 Constructor

The constructor does not expect any parameters.

=cut

our %SKOS;
sub _initialize {
    ; # skip first
    while ($_ = ) {
	last if /----/;
	$csv->parse ($_);
	my @fs = $csv->fields ();
	$SKOS{$fs[1]} = [ @fs[2,3] ];
    }
    ; # skip first
    while ($_ = ) {
	$csv->parse ($_);
	my @fs = $csv->fields ();
	push @{ $SKOS{$fs[1]} }, $fs[3];
    }

    foreach my $k (keys %SKOS ) { #-- internal consistency check
	die "inconsistent data" unless scalar @{ $SKOS{$k} } == 3;
    }
}


sub new {
    my $class = shift;
    _initialize unless %SKOS;
    my $self = bless {}, $class;
    return $self;
}

=pod

=head2 Methods

See also L.

=over

=item B

Different to the superclass, this method is read-only.

=cut

sub concept {
    my $self = shift;
    my $id   = shift;
    return new RDF::SKOS::Concept ($self, $id) if $SKOS{$id};
}

sub concepts {
    my $self = shift;
    return map { new RDF::SKOS::Concept ($self, $_) } keys %SKOS;
}

=pod

=item B

As OeNACE does not have any explicit scheme, this will return an empty list.

=item B

As there are no scheme, we will die here.

=cut

sub scheme { die "no schemeing"; }

=pod

=item B

While there are no schemes, there are top concepts in OeNACE. These
are those with a single letter ID (A, B, C, ...) and these will be
returned. Any scheme parameter will be ignored.

=cut

sub topConcepts {
    my $self = shift;
    return
	map  { new RDF::SKOS::Concept ($self, $_) }
        grep { $_ =~ /^[A-Z]$/}
        keys %SKOS;
}

sub prefLabels {
    my $self = shift;
    my $id   = shift;
    return
	[ $SKOS{$id} [1], 'de' ],
	[ $SKOS{$id} [2], 'en' ];
}

sub altLabels      { () }

sub hiddenLabels {
    my $self = shift;
    my $id   = shift;
    return [ $id, undef ];
}

sub notes          { () }
sub scopeNotes     { () }
sub definitions    { () }
sub examples       { () }
sub historyNotes   { () }
sub editorialNotes { () }
sub changeNotes    { () }


sub narrower {
    my $self = shift;
    my $id   = shift;
    if ($id =~ /^[A-Z]$/) {
	return
	    map { bless { id => $_, skos => $self }, 'RDF::SKOS::Concept' }
	    grep { /$id..$/ }
	    keys %SKOS;
    } else {
	return
	    map { bless { id => $_, skos => $self }, 'RDF::SKOS::Concept' }
	    grep { /$id.$/ }
	    keys %SKOS;
    }
}

=pod

=item B

B: At the moment this does not honor transitivity.

=cut

sub narrowerTransitive {
    my $self = shift;
    $self->narrower (@_);
}

sub broader {
    my $self = shift;
    my $id   = shift;

    if ($id =~ /^([A-Z])..$/) {
	return bless { id => $1, skos => $self }, 'RDF::SKOS::Concept';
    } elsif ($id =~ /^[A-Z]$/) {
	return ();
    } elsif ($id =~ /([A-Z].*).$/) {
	return bless { id => $1, skos => $self }, 'RDF::SKOS::Concept';
    }
}

=pod

=item B

B: At the moment this does not honor transitivity.

=cut

sub broaderTransitive {
    my $self = shift;
    $self->broader (@_);
}

=pod

=back

=head1 AUTHOR

Robert Barta, C<<  >>

=head1 BUGS

Please report any bugs or feature requests to C, or through
the web interface at L.  I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.

=head1 COPYRIGHT & LICENSE

Copyright 2009 Robert Barta, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl
itself.

=cut

our $VERSION = '0.01';

"against all odds";

__DATA__