view release on metacpan or  search on metacpan

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

#pod
#pod  filename  - the address book file to read; defaults to ~/.abook/addressbook
#pod  sig_field - the address book entry property that stores the "sig" field
#pod  folder_field - the address book entry property that stores the "sig" field
#pod
#pod =cut

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});