Yet Another CPAN Grep

Bessarabv-Weight ( B/BE/BESSARABV/Bessarabv-Weight-1.0.0.tar.gz, BESSARABV, 2013; MetaCPAN )

Bessarabv-Weight/lib/Bessarabv/Weight.pm ( view source; MetaCPAN )

CT: get Ivan Bessarabov's weight data


use strict;
use warnings;
use Carp;

use LWP::Simple;
use JSON;
use Time::Local;

my $true = 1;
my $false = '';


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

    cr

";
    }
}

sub __get_data {
    my ($self) = @_;

    my $json = get("http://ivan.bessarabov.ru/weight.json");
    my $data = from_json($json);

    my $day_data = $data->[0]->{day};

    my %date2we