File Coverage

blib/lib/Regexp/DefaultFlags.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch	4	4	100.0
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	22	22	100.0

package Regexp::DefaultFlags;
$Regexp::DefaultFlags::VERSION = '0.01';

use strict;
use overload;

sub import {
    my $class = shift;                          # Ignore package name
    my $flags = @_ ? join(' ', @_) : 'xms';     # Get flags (or defaults)
    $flags =~ s{[\s/]+}{}g;                     # Remove decorations
    if ($flags =~ m/([^imsx]+)/) {              # Detect invalid flags
        require Carp;
        Carp::croak("Unknown regular expression flag: $1");
    }
    overload::constant(                         # Prefilter constants...
        qr => sub {                             # For every regex constant:
            return "(?$flags:$_[1])";           # Flag via (?mix:...) syntax
        },
    );
}

1;
__END__