App-iTan

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

  directory:
    - inc
    - t
    - xt
recommends:
  Mac::Pasteboard: 0
requires:
  Crypt::Twofish: 0
  DBD::SQLite: 0
  DBI: 0
  DateTime: 0
  File::HomeDir: 0
  Moose: 0
  MooseX::App: '1.34'
  MooseX::Types::Path::Class: 0
  Params::Coerce: 0
  Path::Class: 0
  Term::ReadKey: 0
  Text::Table: 0
  perl: 5.10.0
resources:

Makefile.PL  view on Meta::CPAN

# Define metadata
name            'App-iTan';
all_from        $from;
readme_from     $from;

perl_version    '5.010';

# Specific dependencies
requires        'DBI'                               => 0;
requires        'DBD::SQLite'                       => 0;
requires        'DateTime'                          => 0;
requires        'Moose'                             => 0;
requires        'MooseX::App'                       => '1.34';
requires        'Params::Coerce'                    => 0;
requires        'Path::Class'                       => 0;
requires        'Text::Table'                       => 0;
requires        'Crypt::Twofish'                    => 0;
requires        'Term::ReadKey'                     => 0;
requires        'MooseX::Types::Path::Class'        => 0;
requires        'File::HomeDir'                     => 0;

lib/App/iTan/Utils.pm  view on Meta::CPAN

use 5.0100;

use Path::Class;
use Params::Coerce;
use MooseX::Types::Path::Class;
use File::HomeDir;

use Term::ReadKey;
use DBI;
use Crypt::Twofish;
use DateTime;

=head1 NAME

App::iTan::Utils - Utility methods role

=head1 METHODS

=head2 Accessors

=head3 database

lib/App/iTan/Utils.pm  view on Meta::CPAN

            \/
            (?<month>\d{1,2})
            \/
            (?<day>\d{1,2})
            \s
            (?<hour>\d{1,2})
            :
            (?<minute>\d{1,2})
            $/x;

    return DateTime->new(
        year   => $+{year},
        month  => $+{month},
        day    => $+{day},
        hour   => $+{hour},
        minute => $+{minute},
    );
}

sub crypt_string {
    my ( $self, $string ) = @_;

lib/App/iTan/Utils.pm  view on Meta::CPAN

sub decrypt_string {
    my ( $self, $data ) = @_;

    my $tan = $self->cipher->decrypt($data);
    $tan =~ s/\s+//g;
    return $tan;
}

sub _date {
    return DateTime->now->format_cldr('yyyy/MM/dd HH:mm');
}

sub _get_password {
    my $password;

    ReadMode 2;
    say 'Please enter your password:';
    while ( not defined( $password = ReadLine(-1) ) ) {
        # no key pressed yet
    }