File Coverage

blib/lib/File/Find/Rule/BOM.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	6	6	100.0
condition			n/a
subroutine	10	10	100.0
pod	0	4	0.0
total	45	49	91.8

package File::Find::Rule::BOM;

use base qw(File::Find::Rule);
use strict;
use warnings;

use String::BOM qw(file_has_bom);

our $VERSION = 0.02;

# Detect BOM.
sub File::Find::Rule::bom {
	my $file_find_rule = shift;
	return _bom($file_find_rule);
}

# Detect UTF-8 BOM.
sub File::Find::Rule::bom_utf8 {
	my $file_find_rule = shift;
	return _bom($file_find_rule, 'UTF-8');
}

# Detect UTF-16 BOM.
sub File::Find::Rule::bom_utf16 {
	my $file_find_rule = shift;
	return _bom($file_find_rule, 'UTF-16');
}

# Detect UTF-32 BOM.
sub File::Find::Rule::bom_utf32 {
	my $file_find_rule = shift;
	return _bom($file_find_rule, 'UTF-32');
}

sub _bom {
	my ($file_find_rule, $concrete_bom) = @_;
	my $self = $file_find_rule->_force_object;
	return $self->file->exec(sub{
		my $file = shift;
		my $bom = file_has_bom($file);
		return 0 unless $bom;
		if ($concrete_bom) {
			return $concrete_bom eq $bom ? 1 : 0
		} else {
			return 1;
		}
	});
}

1;

__END__