File Coverage

blib/lib/OAuth/Cmdline/Smartthings.pm
Criterion Covered Total %
statement 12 19 63.1
branch 0 2 0.0
condition n/a
subroutine 4 6 66.6
pod 0 2 0.0
total 16 29 55.1


line stmt bran cond sub pod time code
1             ###########################################
2             package OAuth::Cmdline::Smartthings;
3             ###########################################
4 1     1   34491 use strict;
  1         2  
  1         38  
5 1     1   7 use warnings;
  1         2  
  1         52  
6 1     1   461 use MIME::Base64;
  1         1349  
  1         73  
7 1     1   556 use Moo;
  1         13228  
  1         6  
8              
9             extends "OAuth::Cmdline";
10              
11             sub BUILD {
12 0     0 0   my( $self ) = @_;
13              
14 0 0         if( !defined $self->base_uri ) {
15             # default to US
16 0           $self->base_uri( "https://graph-na02-useast1.api.smartthings.com" );
17             }
18              
19 0           $self->login_uri( $self->base_uri . "/oauth/authorize" );
20 0           $self->token_uri( $self->base_uri . "/oauth/token" );
21              
22 0           $self->client_init_conf_check( $self->base_uri );
23             }
24              
25             ###########################################
26             sub site {
27             ###########################################
28 0     0 0   return "smartthings";
29             }
30              
31             1;
32              
33             __END__