view release on metacpan or  search on metacpan

lib/App/Office/Contacts/Import/vCards/Util/Config.pm  view on Meta::CPAN

package App::Office::Contacts::Import::vCards::Util::Config;

use Moose;

extends 'App::Office::Contacts::Util::Config';

use namespace::autoclean;

our $VERSION = '1.12';

# -----------------------------------------------

sub BUILD
{
	my($self) = @_;
	my($name) = '.htoffice.import.vcards.conf';

	my($path);

	for (keys %INC)
	{
		next if ($_ !~ m|App/Office/Contacts/Import/vCards/Util/Config.pm|);

		($path = $INC{$_}) =~ s|Util/Config.pm|$name|;
	}

	$self -> init($path);

} # End of BUILD.

# --------------------------------------------------

__PACKAGE__ -> meta -> make_immutable;

1;