App-Addex-AddressBook-Abook

 view release on metacpan or  search on metacpan

lib/App/Addex/AddressBook/Abook.pm  view on Meta::CPAN

  sub preprocess_line {
    my ($self, $line) = @_;
    ${$line} =~ s/\s+[;#].*$//g;
  }
}


sub new {
  my ($class, $arg) = @_;

  my $self = bless {} => $class;

  $arg->{filename} ||= File::Spec->catfile(
    File::HomeDir->my_home,
    '.abook',
    'addressbook',
  );

  eval {
    $self->{config} = App::Addex::AddressBook::Abook::INI::Reader
                    ->read_file($arg->{filename});

 view all matches for this distribution
 view release on metacpan -  search on metacpan

( run in 1.086 second using v1.00-cache-1.14-grep-28634ff-cpan-4d46879620f )