File Coverage

blib/lib/DMOSS/Plugin/VerifyLicense.pm

Criterion	Covered	Total	%
statement	18	39	46.1
branch	0	12	0.0
condition			n/a
subroutine	6	12	50.0
pod	6	6	100.0
total	30	69	43.4

package DMOSS::Plugin::VerifyLicense;
$DMOSS::Plugin::VerifyLicense::VERSION = '0.01_2';
# ABSTRACT: DMOSS fix me description
use parent qw/DMOSS::Plugin/;

use strict;
use warnings;

use Software::License;
use Software::LicenseUtils;
use File::Slurp qw/read_file/;

our @types = qw/README LICENSE/;

sub name { 'Verify License' }

sub process {
  my ($self, $dmoss, $file) = @_;
  my $content = read_file $file->fullpath;
  return unless $content =~ m/\b(licen[cs]e|licensing|copyright|legal)\b/;

  # guess license
  $content = "=head1 license\n" . $content . "\n=cut";
  my @guesses = Software::LicenseUtils->guess_license_from_pod($content);
  my $top = shift @guesses;

  if ($top) {
    my $license = $top->name;
    $dmoss->add_attr('license', $license);
  }
}

sub reduce {
  my ($self, $dmoss, @attrs) = @_;
  return unless @attrs;

  if (@attrs > 1) {  # more than one license was found
    # FIXME
  }
  else {
    $dmoss->add_attr('license', $attrs[0]->value);
  }
}

sub report {
  my ($self, $dmoss, $attr) = @_;

  return [ $attr->file->{path}, $attr->value ];
}

sub report_headers {
  my ($self, $dmoss) = @_;

  return [ 'File', 'License' ];
}

sub grade {
  my ($self, $dmoss, $attr) = @_;
  return 0 unless $attr;

  return ( $attr->value ? 1 : 0 );
}

1;

__END__