CPAN::Groonga

use strict;
use warnings;

package Path::IsDev::HeuristicSet::FromConfig;
BEGIN {
  $Path::IsDev::HeuristicSet::FromConfig::AUTHORITY = 'cpan:KENTNL';
}
{
  $Path::IsDev::HeuristicSet::FromConfig::VERSION = '0.002000';
}

# ABSTRACT: A Custom Heuristic Set from a configuration file



use Role::Tiny::With;

with 'Path::IsDev::Role::HeuristicSet::Simple';

require Path::IsDev::HeuristicSet::FromConfig::Loader;

my $loader = Path::IsDev::HeuristicSet::FromConfig::Loader->new();


sub heuristics {
  return @{ $loader->heuristics() };
}


sub negative_heuristics {
  return @{ $loader->negative_heuristics() };
}

1;

__END__

=pod

=encoding utf-8

=head1 NAME

Path::IsDev::HeuristicSet::FromConfig - A Custom Heuristic Set from a configuration file

=head1 VERSION

version 0.002000

=head1 SYNOPSIS

    export PATH_ISDEV_DEFAULT_SET="FromConfig";
    # Whee, is_dev() and friends now seriously different everywhere

By default, it will try to read a configuration file in one of the following paths:

    $HOME/.local/share/.path_isdev_heuristicset_fromconfig/config.json
    $HOME/.path_isdev_heuristicset_fromconfig/config.json

Which ever one it is unfortunately dependent on the sort of mood File::HomeDir is in, and whether or not
you have C<xdg-user-dir> in your C<$PATH>

Either way, if such a path does not exist the first time you use this module, it will be created
for you from the default template in the distributions share directory.

Edit it to your liking.

If you mess it up, just delete it, run the code  again, and its back! :D

In fact, its so aggressive at this, I had to put a bit of code in the tests to stop it
creating those directories during tests >_>.

Pester File::UserConfig if you want this logic improved.

=head1 METHODS

=head2 C<heuristics>

Satisfies the role L<< C<HeuristicSet::Simple>|Path::IsDev::Role::HeuristicSet::Simple/heuristics >>

Returns the values in the configuration file in the field C<heuristics>

=head2 C<negative_heuristics>

Satisfies the role L<< C<HeuristicSet::Simple>|Path::IsDev::Role::HeuristicSet::Simple/negative_heuristics >>

Returns the values in the configuration file in the field C<negative_heuristics>

=begin MetaPOD::JSON v1.1.0

{
    "namespace":"Path::IsDev::HeuristicSet::FromConfig",
    "interface":"single_class",
    "does":"Path::IsDev::Role::HeuristicSet::Simple"
}


=end MetaPOD::JSON

=head1 AUTHOR

Kent Fredric <kentfredric@gmail.com>

=head1 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.

=cut