Eric Wilhelm > Device-SerialPins-v0.0.2 > Device::SerialPins

Download:
Device-SerialPins-v0.0.2.tar.gz

Dependencies

Annotate this POD

Website

View/Report Bugs
Module Version: v0.0.2   Source  

NAME ^

Device::SerialPins - per-pin low-level serial port access

SYNOPSIS ^

  use Device::SerialPins;
  my $sp = Device::SerialPins->new('/dev/ttyS0');
  $sp->set_txd(1);
  $sp->set_dtr(1);
  $sp->set_rts(1);

  # aka
  $sp->set_pin3(1);
  $sp->set_pin4(1);
  $sp->set_pin7(1);

  warn "car ", $sp->car;
  warn "dsr ", $sp->dsr;
  warn "cts ", $sp->cts;
  warn "rng ", $sp->rng;

  # aka
  warn "car ", $sp->pin1;
  warn "dsr ", $sp->pin6;
  warn "cts ", $sp->pin8;
  warn "rng ", $sp->pin9;

Constructor ^

new

  my $sp = Device::SerialPins->new('/dev/ttyS0');

Getter Methods ^

Note: there is currently no rxd/pin2

pin1 / car / dcd

  my $state = $sp->pin1;

pin3 / txd

  my $state = $sp->pin3;

pin4 / dtr

  my $state = $sp->pin4;

ground pin is #5

pin6 / dsr

  my $state = $sp->pin6;

pin7 / rts

  my $state = $sp->pin7;

pin8 / cts

  my $state = $sp->pin8;

pin9 / rng

  my $state = $sp->pin9;

get

Gets the state of a named or numbered pin.

  $sp->get($pin);

Setter Methods ^

You can only set the three output pins.

The setter methods have the three-letter pin names or the pin# numbered aliases. Also see the general-purpose set() method.

  $sp->set_foo(1); # on

  $sp->set_foo(0); # off

set_pin3 / set_txd

set_pin4 / set_dtr

set_pin7 / set_rts

set

Sets the state of a named or numbered pin.

  $sp->set($pin, $bool);

SEE ALSO ^

Device::SerialPort for more typical usage.

http://www.easysw.com/~mike/serial/serial.html

AUTHOR ^

Eric Wilhelm @ <ewilhelm at cpan dot org>

http://scratchcomputing.com/

BUGS ^

If you found this module on CPAN, please report any bugs or feature requests through the web interface at http://rt.cpan.org. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

If you pulled this development version from my /svn/, please contact me directly.

COPYRIGHT ^

Copyright (C) 2007 Eric L. Wilhelm, All Rights Reserved.

NO WARRANTY ^

Absolutely, positively NO WARRANTY, neither express or implied, is offered with this software. You use this software at your own risk. In case of loss, no person or entity owes you anything whatsoever. You have been warned.

LICENSE ^

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

syntax highlighting: