File Coverage

blib/lib/Echo/StreamServer/Account.pm

Criterion	Covered	Total	%
statement	18	21	85.7
branch	1	2	50.0
condition			n/a
subroutine	5	6	83.3
pod	0	2	0.0
total	24	31	77.4

package Echo::StreamServer::Account;

use 5.008008;
use strict;
use warnings;

use Echo::StreamServer::Settings;

our $VERSION = '0.01';

sub new {
	# TODO: Add auth-type: Basic vs. OAUth2
	my ($package, $appkey, $secret) = @_;
	my %hash;

	# Choose the account parameters, or the default account in Settings.
	if ($appkey) {
		%hash = ( 'appkey' => $appkey, 'secret' => $secret);
	}
	else {
		%hash = ( 'appkey' => $ECHO_API_KEY, 'secret' => $ECHO_API_SECRET );
	}

	my $obj = bless \%hash => $package;
	return $obj;
}

sub name {
	my $self = shift;
	return "(StreamServer Account: appkey=" . $self->{'appkey'} . ")";
}

1;
__END__