Yet Another CPAN Grep

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

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

ACT: get Ivan Bessarabov's sleep 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/sleep.json");
    my $data = from_json($json);

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

    my %date2sle