File Coverage

blib/lib/XML/IODEF/Simple/Plugin/RI_RESTRICTION.pm

Criterion	Covered	Total	%
statement	9	20	45.0
branch	0	4	0.0
condition			n/a
subroutine	3	5	60.0
pod	0	2	0.0
total	12	31	38.7

package XML::IODEF::Simple::Plugin::RI_RESTRICTION;

use 5.008008;
use strict;
use warnings;

our $VERSION = '0.00_01';
$VERSION = eval $VERSION;  # see L

# Preloaded methods go here.

my $map = {
    limited => 'need-to-know',
    restricted  => 'private',
    privileged  => 'need-to-know',
    default => 'private',
};

sub prepare {
    my $class   = shift;
    my $info    = shift;
    return unless($info->{'restriction'});
    return unless(exists($map->{lc($info->{'restriction'})}));
    return(1);
}

sub convert {
    my $class = shift;
    my $info = shift;
    my $iodef = shift;
    my $r = lc($info->{'restriction'});
    $info->{'restriction'} = $map->{$r};

    return($iodef);
}

1;
__END__