view release on metacpan or  search on metacpan

lib/WWW/KlickTel/API.pm  view on Meta::CPAN

  # create a key file at ~/.klicktel/api_key.txt and run

  my $klicktel = WWW::KlickTel::API->new();

=cut

# --- GLOBAL VARIABLES ---
my %cache_invers = ();

# system username
my $username = $ENV{LOGNAME} || $ENV{USER} || getpwuid($<);

=head1 METHODS

=head2 new

Create the object. All parameter are optional.

  my $klicktel = WWW::KlickTel::API->new(
      api_key     => '01234567890abcdef01234567890abcd',
      protocol    => 'https',           # or 'http' (http is default)

t/02-cache.t  view on Meta::CPAN

use strict;
use warnings FATAL => 'all';
use Test::More;

plan tests => 1;

BEGIN {
    ok(
        eval {
            my $username;
            eval { $username = $ENV{LOGNAME} || $ENV{USER} || getpwuid($<); };
            my $cache_dir = '/var/cache/www-klicktel-api/';

            # create cache directory
            if ( $username ne 'root' ) {
                $cache_dir = '/home/' . $username . '/.klicktel/cache/';
                mkdir '/home/' . $username . '/.klicktel'
                    if !-d '/home/' . $username . '/.klicktel';
            }
            if ( !-d $cache_dir ) {
                mkdir $cache_dir