#########################################################################################
# Package HiPi::Wiring::Pin
# Description: Pin
# Created Wed Feb 20 04:37:38 2013
# SVN Id $Id: Pin.pm 3 2015-03-12 01:07:32Z Mark Dootson $
# Copyright: Copyright (c) 2013 Mark Dootson
# Licence: This work 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 3 of the License, or any later
# version.
#########################################################################################
package HiPi::Wiring::Pin;
#########################################################################################
use 5.14.0;
use strict;
use warnings;
use parent qw( HiPi::Pin );
use Carp;
use HiPi::Constant qw( :raspberry );
our $VERSION = '0.31';
sub _open {
my ($class, %params) = @_;
defined($params{pinid}) or croak q(pinid not defined in parameters);
my $self = $class->SUPER::_open(%params);
return $self;
}
1;