File Coverage

blib/lib/Net/Google/Code/Role/Predefined.pm

Criterion	Covered	Total	%
statement	40	42	95.2
branch	5	10	50.0
condition	1	3	33.3
subroutine	5	5	100.0
pod	1	1	100.0
total	52	61	85.2

package Net::Google::Code::Role::Predefined;
use Any::Moose 'Role';
use Params::Validate ':all';
use JSON;
with 'Net::Google::Code::Role::Fetchable';

has 'predefined_status' => (
    isa => 'HashRef',
    is  => 'rw',
);

has 'predefined_labels' => (
    isa => 'ArrayRef',
    is  => 'rw',
);

no Any::Moose;

sub load_predefined {
    my $self = shift;
    my $class = ref $self || $self;
    my $last_name;
    $last_name = lc $1 if $class =~ /::(\w+)$/;

    return unless $self->signed_in;
    my $base_url = $self->base_url;
    my $content = $self->fetch($self->base_url);
    if ( $content =~ /codesite_token\s*=\s*"(\w+)"/ ) {
        my $token = $1;
        my $mech = $self->mech;
# I tried to use $mech->post( $url, token => $token )
# but without luck :(
        $mech->update_html(<<"EOF");

method="POST" >



EOF
        $mech->submit_form( form_number => 1 );
        die "failed to post to OptionsJSON page" unless $mech->success;

        my $js     = $mech->content;
        my $object = from_json $js;
        return unless $object;

        $self->predefined_status( { open => [], closed => [] } );
        for my $type (qw/open closed/) {
            for ( @{ $object->{$type} } ) {
                push @{ $self->predefined_status->{$type} }, $_->{name};
            }
        }

        $self->predefined_labels( [] );
        for ( @{ $object->{labels} } ) {
            push @{ $self->predefined_labels }, $_->{name};
        }

        return 1;
    }
    else {
        warn "can't get user token";
        return;
    }

}

1;

__END__