Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl --
use strict;
...
use Pashnoid::Fire;
my @ok_ports = Pashnoid::Fire->get_ports();
...
  2. or download this
    package Pashnoid::Fire;
use Perl::OSType qw' is_os_type ';
...
    eval q{use parent 'Pashnoid::Fire::Linux'; 1} or die $@;
}
1;
  3. or download this
    use Win32;
...
sub get_ports {
   my( $selfOrClass ) = shift;
...
  4. or download this
    use Device::SerialPort;
...
sub get_ports {
   my( $selfOrClass ) = shift;
...