view release on metacpan or  search on metacpan

lib/Apache2/HTML/Detergent/Config.pm  view on Meta::CPAN

=head2 type_matches

=cut

sub type_matches {
    my ($self, $type) = @_;
    return unless defined $type;
    $type =~ s!^\s*([^/]+/[^/;]+).*!\L$1!;
    # ok so i'm not on crack
    #warn $type;
    #require Data::Dumper;
    #warn Data::Dumper::Dumper($self->types);
    return $self->types->{$type};
}

=head2 COPYRIGHT & LICENSE

=cut

__PACKAGE__->meta->make_immutable;

1; # End of Apache2::HTML::Detergent::Config