File Coverage

blib/lib/CryoTel/CryoCon.pm

Criterion	Covered	Total	%
statement	12	18	66.6
branch	0	2	0.0
condition			n/a
subroutine	4	5	80.0
pod	1	1	100.0
total	17	26	65.3

package CryoTel::CryoCon;
use warnings;
use strict;
use IO::Socket::INET;
use base 'Exporter';
our @EXPORT = qw(getcc %CryoTelFunctionsA %CryoTelFunctionsB %CryoTelFunctionsC %CryoTelFunctionsD);
our $VERSION = '0.0.6';
our $MODDATE = '07-08-09';

=head1 NAME

CryoTel::CryoCon - A module for interfacing with CryoTel Cryocontrollers via TCP

=head1 SYNOPSIS

use CryoTel::CryoCon;

=head1 REQUIRES

Only core modules required

=head1 DESCRIPTION

Function library for interfacing with CryoTel Cryocontrollers

=head1 AUTHOR/LICENSE

Perl Module CryoTel::CryoCon - Function library for interfacing with CryoTel Cryocontrollers. Copyright (C) 2009 Stanford University, Authored by Sam Kerr [e-mail]

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA


=head2 Functions

1 Function and 4 hashes of functions (one for each channel) exported by default.

getcc();
%CryoTelFunctionsA
%CryoTelFunctionsB
%CryoTelFunctionsC
%CryoTelFunctionsD

 Each hash contains a code reference to getcc with supplied arguments. 1 function currently 'getCurrentTemp'.

&{$CryoTelFunctionsA{getCurrentTempA}};


=head3 getcc() - Send CryoCon a command as an argument

$temp = getcc('input? a');

=cut


our %CryoTelFunctionsA = (
					getCurrentTemp => sub {return getcc('input? a')},

					);

our %CryoTelFunctionsB = (
					getCurrentTemp => sub {return getcc('input? b')},
					);

our %CryoTelFunctionsC = (
					getCurrentTemp => sub {return getcc('input? c')},
					);

our %CryoTelFunctionsD = (
					getCurrentTemp => sub {return getcc('input? d')},
					);

sub getcc{
my $arg = shift;
my $sock = IO::Socket::INET->new(PeerAddr => '192.168.0.5',
                                 PeerPort => '5000',
                                 Proto    => 'tcp',
								 Type => SOCK_STREAM)
							or
			die "Could not open socket to CryoCon, $!\n";

print $sock "$arg";

my $line = <$sock>;
print "$line\n";
close($sock);
}

__END__