NAME

Path::IsDev::Object - Object Oriented guts for IsDev export

VERSION

version 1.001002

SYNOPSIS

    use Path::IsDev::Object;

    my $dev = Path::IsDev::Object->new();
    my $dev = Path::IsDev::Object->new( set => 'MySet' );

    if ( $dev->matches($path) ){
        print "$path is dev";
    }

DESCRIPTION

Exporting functions is handy for end users, but quickly becomes a huge headache when you're trying to chain them.

e.g: If you're writing an exporter yourself, and you want to wrap responses from an exported symbol, while passing through user configuration => Huge headache.

So the exporter based interface is there for people who don't need anything fancy, while the Object based interface is there for people with more complex requirements.

METHODS

"matches"

Determine if a given path satisfies the "set"

    if( $o->matches($path) ){
        print "We have a match!";
    }

ATTRIBUTES

"set"

The name of the "HeuristicSet::" to use.

Default is "Basic", or the value of $ENV{PATH_ISDEV_DEFAULT_SET}

"set_prefix"

The "HeuristicSet" prefix to use to expand "set" to a module name.

Default is "Path::IsDev::HeuristicSet"

"set_module"

The fully qualified module name.

Composed by joining "set" and "set_prefix"

"loaded_set_module"

An accessor which returns a module name after loading it.

PRIVATE METHODS

"_instance_id"

An opportunistic sequence number for help with debug messages.

Note: This is not guaranteed to be unique per instance, only guaranteed to be constant within the life of the object.

Based on "refaddr", and giving out new ids when new "refaddr"'s are seen.

"_debug"

The debugger callback.

    export PATH_ISDEV_DEBUG=1

to get debug info.

"_with_debug"

Wrap calls to Path::IsDev::debug to have a prefix with an object identifier.

    $ob->_with_debug(sub{
        # Path::Tiny::debug now localised.

    });

"BUILD"

"BUILD" is an implementation detail of "Class::Tiny".

This module hooks "BUILD" to give a self report of the object to *STDERR after "->new" when under $DEBUG

"_matches"

    my $result = $o->matches( $path );

$result here will be a constructed "Path::IsDev::Result".

Note this method may be handy for debugging, but you should still call "matches" for all real code.

AUTHOR

Kent Fredric <kentfredric@gmail.com>

COPYRIGHT AND LICENSE

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