File Coverage

blib/lib/Test/NoSmartComments.pm

Criterion	Covered	Total	%
statement	30	31	96.7
branch	1	2	50.0
condition			n/a
subroutine	8	9	88.8
pod	3	3	100.0
total	42	45	93.3

#
# This file is part of Test-NoSmartComments
#
# This software is Copyright (c) 2011 by Chris Weyl.
#
# This is free software, licensed under:
#
#   The GNU Lesser General Public License, Version 2.1, February 1999
#
package Test::NoSmartComments;
our $AUTHORITY = 'cpan:RSRCHBOY';
# git description: 0.004-7-gfc4f436
$Test::NoSmartComments::VERSION = '0.005';

# ABSTRACT: Make sure no Smart::Comments escape into the wild

use strict;
use warnings;

use base 'Test::Builder::Module';

my $CLASS = __PACKAGE__;

use Module::ScanDeps;
use ExtUtils::Manifest qw( maniread );

our @EXPORT = qw{
    no_smart_comments_in
    no_smart_comments_in_all
    no_smart_comments_in_tests
};


sub no_smart_comments_in_all   { _no_smart_comments_in_matching(qr!^lib/.*\.pm$!) }
sub no_smart_comments_in_tests { _no_smart_comments_in_matching(qr!^t/.*\.t$!)  }

sub _no_smart_comments_in_matching {
    my $like = shift @_;

    my $tb = $CLASS->builder;
    my $manifest = maniread();
    my @files = sort grep { $like } keys %$manifest;
    local $Test::Builder::Level = $Test::Builder::Level + 2;
    no_smart_comments_in($_) for @files;

    return;
}

sub no_smart_comments_in {
    my $file = shift @_;
    my $tb = $CLASS->builder;

    $tb->diag("No such file: $file") unless -f $file;

    my $dep = scan_deps(files => [ $file ], recurse => 0);
    $tb->ok(!exists $dep->{'Smart/Comments.pm'}, "$file w/o Smart::Comments");
    return;
}

1;

__END__