view release on metacpan or  search on metacpan

t/01-simple.t  view on Meta::CPAN

#!/usr/bin/perl
#
# Copyright 2013 Mark Hindess

use strict;
use Test::More;
use lib 't/lib';
use File::Temp qw/tempfile/;

my ($fh, $filename) = tempfile();
END { unlink $filename if ($filename); }

use_ok 'AnyEvent::SerialPort';

my $hdl;

$hdl = AnyEvent::SerialPort->new(serial_port => $filename);