The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Path::IsDev::Role::Heuristic::RegexpFile - Positive Heuristic when a path has a child file matching an expression

VERSION

version 0.6.0

SYNOPSIS

    package Some::Heuristic;
    use Role::Tiny::With;
    with 'Path::IsDev::Role::Heuristic::RegexpFile';

    # Match if $PATH contains a child like $PATH/.bashrc or $PATH/.bash_profile
    sub basename_regexp {
        return qr/ \A [.] bash/xism;
    }

    1;

ROLE REQUIRES

basename_regexp

Consuming classes must provide this method.

    returns : a regexp ref that will be matched on all of $PATH->children's $_->basename

METHODS

matches

Implements matches for Path::IsDev::Role::Heuristic

    if ( $class->matches($result_object) ) {
      # one of the items in $result_object->path->children matched $class->basename_regexp
      # $result_object has been modified to reflect that
      # _debug has been done where relevant
    }
    else {
      # no matches
      # $result_object has been modified with diagnostic data
      # _debug has been done where relevant
    }

AUTHOR

Kent Fredric <kentfredric@gmail.com>

COPYRIGHT AND LICENSE

This software is copyright (c) 2013 by Kent Fredric <kentfredric@gmail.com>.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.