App-TimeTracker-Command-Trello

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

  "dist_author" => [
    "Thomas Klausner <domm\@plix.at>"
  ],
  "dist_name" => "App-TimeTracker-Command-Trello",
  "dist_version" => "1.008",
  "license" => "perl",
  "module_name" => "App::TimeTracker::Command::Trello",
  "recursive_test_files" => 1,
  "requires" => {
    "App::TimeTracker::Utils" => 0,
    "JSON::XS" => 0,
    "Moose::Role" => 0,
    "Path::Class" => 0,
    "WWW::Trello::Lite" => 0,
    "perl" => "5.010"
  },
  "test_requires" => {
    "File::Spec" => 0,
    "File::Temp" => 0,
    "IO::Handle" => 0,
    "IPC::Open3" => 0,

META.json  view on Meta::CPAN

         }
      },
      "configure" : {
         "requires" : {
            "Module::Build" : "0.28"
         }
      },
      "runtime" : {
         "requires" : {
            "App::TimeTracker::Utils" : "0",
            "JSON::XS" : "0",
            "Moose::Role" : "0",
            "Path::Class" : "0",
            "WWW::Trello::Lite" : "0",
            "perl" : "5.010"
         }
      },
      "test" : {
         "requires" : {
            "File::Spec" : "0",
            "File::Temp" : "0",

META.json  view on Meta::CPAN

      },
      "homepage" : "http://timetracker.plix.at/",
      "repository" : {
         "type" : "git",
         "url" : "https://github.com/domm/App-TimeTracker-Trello.git",
         "web" : "https://github.com/domm/App-TimeTracker-Trello"
      }
   },
   "version" : "1.008",
   "x_generated_by_perl" : "v5.32.0",
   "x_serialization_backend" : "Cpanel::JSON::XS version 4.25",
   "x_spdx_expression" : "Artistic-1.0-Perl OR GPL-1.0-or-later"
}

cpanfile  view on Meta::CPAN

# This file is generated by Dist::Zilla::Plugin::CPANFile v6.017
# Do not edit this file directly. To change prereqs, edit the `dist.ini` file.

requires "App::TimeTracker::Utils" => "0";
requires "JSON::XS" => "0";
requires "Moose::Role" => "0";
requires "Path::Class" => "0";
requires "WWW::Trello::Lite" => "0";
requires "perl" => "5.010";

on 'build' => sub {
  requires "Module::Build" => "0.28";
};

on 'test' => sub {

lib/App/TimeTracker/Command/Trello.pm  view on Meta::CPAN

our $VERSION = '1.008'; # VERSION

use strict;
use warnings;
use 5.010;

use App::TimeTracker::Utils qw(error_message warning_message);

use Moose::Role;
use WWW::Trello::Lite;
use JSON::XS qw(encode_json decode_json);
use Path::Class;

has 'trello' => (
    is            => 'rw',
    isa           => 'Str',
    documentation => 'Trello card id',
    predicate     => 'has_trello'
);

has 'trello_client' => (

lib/App/TimeTracker/Command/Trello.pm  view on Meta::CPAN

    my ( $self, $update, $file, $type ) = @_;

    print "I will store the following keys\n\t"
        . join( ', ', sort keys %$update )
        . "\nin your $type config file\n$file\n";
    print "(Y|n): ";
    my $in = <STDIN>;
    $in =~ s/\s+//;
    unless ( $in =~ /^n/i ) {
        my $f   = file($file);
        my $old = JSON::XS->new->utf8->relaxed->decode(
            scalar $f->slurp( iomode => '<:encoding(UTF-8)' ) );
        while ( my ( $k, $v ) = each %$update ) {
            $old->{trello}{$k} = $v;
        }
        $f->spew(
            iomode => '>:encoding(UTF-8)',
            JSON::XS->new->utf8->pretty->encode($old)
        );
    }
}

sub _trello_fetch_card {
    my ( $self, $trello_tag ) = @_;

    my %search = (
        query       => $trello_tag,
        card_fields => 'shortLink',