File Coverage

blib/lib/BusyBird/Input/Generator.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	6	8	75.0
condition			n/a
subroutine	9	9	100.0
pod	2	2	100.0
total	50	52	96.1

package BusyBird::Input::Generator;
use v5.8.0;
use strict;
use warnings;
use DateTime;
use BusyBird::DateTime::Format;
use Data::UUID;

sub new {
    my ($class, %args) = @_;
    my $self = bless {
        screen_name => defined($args{screen_name}) ? $args{screen_name} : "",
        id_gen => Data::UUID->new,
    }, $class;
    return $self;
}

sub generate {
    my ($self, %args) = @_;
    my $text = defined($args{text}) ? $args{text} : "";
    my $level = defined($args{level}) ? $args{level} : 0;
    my $cur_time = DateTime->now;
    my $status = +{
        id => $self->_generate_id(),
        text => $text,
        created_at => BusyBird::DateTime::Format->format_datetime($cur_time),
        user => {
            screen_name => $self->{screen_name},
        },
        busybird => {
            status_permalink => ""
        }
    };
    if(defined $level) {
        $status->{busybird}{level} = $level + 0;
    }
    return $status;
}

sub _generate_id {
    my ($self) = @_;
    my $namespace = $self->{screen_name};
    my $uuid = $self->{id_gen}->create_str;
    return qq{busybird://$namespace/$uuid};
    ## $cur_time = DateTime->now if not defined($cur_time);
    ## my $cur_epoch = $cur_time->epoch;
    ## if($self->{last_epoch} != $cur_epoch) {
    ##     $self->{next_sequence_number} = 0;
    ## }
    ## my $id = qq{busybird://$namespace/$cur_epoch/$self->{next_sequence_number}};
    ## $self->{next_sequence_number}++;
    ## $self->{last_epoch} = $cur_epoch;
    ## return $id;
}

1;
__END__