File Coverage

blib/lib/Echo/StreamServer/Client.pm

Criterion	Covered	Total	%
statement	19	20	95.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	25	28	89.2

package Echo::StreamServer::Client;

use 5.008008;
use strict;
use warnings;

use Echo::StreamServer::Account;

our $VERSION = '0.01';

sub new {
	my ($package, $account) = @_;
	my %hash;

	# Choose the $account parameter, or the default account in Settings.
	my $acct;
	if ($account) {
		$acct = $account;
	}
	else {
		# Default Account:
		$acct = new Echo::StreamServer::Account();
	}

	%hash = ( 'account' => $acct );
	my $obj = bless \%hash => $package;
	return $obj;
}

1;
__END__