view release on metacpan or  search on metacpan

lib/App/starbucksloginator.pm  view on Meta::CPAN

    }

    usage 0 if $help;

    agent->agent( $agent ) if defined $agent;

    my ( $connected, $response );
    ( $connected, $response ) = $self->try_to_get_out;

    if ( $connected ) { 
        say "It looks like you can already get out -- Cancelling login";
        exit 0;
    }
    else {
        say "Unable to get out -- Attempting to login";
    }

    if ( agent->form_number( 1 ) ) {
        say "Attempting to connect";
        $response = agent->submit_form( 
            fields => {