view release on metacpan or  search on metacpan

lib/App/perlminlint/Plugin.pm  view on Meta::CPAN

package App::perlminlint::Plugin; sub MY () {__PACKAGE__}
# -*- coding: utf-8 -*-
use 5.009;
use strict;
use warnings FATAL => 'all';
use Carp;

use App::perlminlint::Object [as_base => qw/^app/];

sub NIMPL {
  my ($pkg, $file, $line, $subname) = caller($_[0] // 1);
  $subname =~ s/^.*?::(\w+)$/$1/;
  croak "Plugin method $subname is not implemented in $pkg";
}

sub priority { 10 }
sub declare_priority {
  my ($myPack, $callpack, $value) = @_;

  $myPack->_declare_constant_in($callpack, priority => $value);
}