File Coverage

blib/lib/RPi/Const.pm

Criterion	Covered	Total	%
statement	45	46	97.8
branch			n/a
condition			n/a
subroutine	15	16	93.7
pod			n/a
total	60	62	96.7

package RPi::Const;

use strict;
use warnings;

our $VERSION = '1.06';

require Exporter;
use base qw( Exporter );
our @EXPORT_OK = ();
our %EXPORT_TAGS = ( all => \@EXPORT_OK );

use constant {
    PWM_MODE_MS => 0,
    PWM_MODE_BAL => 1,
};

{ # PWM modes
    my @const = qw(
        PWM_MODE_MS
        PWM_MODE_BAL
    );

    push @EXPORT_OK, @const;
    $EXPORT_TAGS{pwm_mode} = \@const;
}

use constant {
    PWM_DEFAULT_MODE => 1, # balanced
    PWM_DEFAULT_CLOCK => 32,
    PWM_DEFAULT_RANGE => 1023,
};

{ # PWM defaults
    my @const = qw(
        PWM_DEFAULT_MODE
        PWM_DEFAULT_CLOCK
        PWM_DEFAULT_RANGE
        );

    push @EXPORT_OK, @const;
    $EXPORT_TAGS{pwm_defaults} = \@const;
}

use constant {
    INPUT => 0,
    OUTPUT => 1,
    PWM_OUT => 2,
    GPIO_CLOCK => 3,
    SOFT_PWM_OUTPUT => 4,
    SOFT_TONE_OUTPUT => 5,
    PWM_TONE_OUTPUT => 6,
};

{ # pinmodes
    my @const = qw(
        INPUT
        OUTPUT
        PWM_OUT
        GPIO_CLOCK
        SOFT_PWM_OUTPUT
        SOFT_TONE_OUTPUT
        PWM_TONE_OUTPUT
    );

    push @EXPORT_OK, @const;
    $EXPORT_TAGS{pinmode} = \@const;
}

use constant {
    ALT0 => 4,
    ALT1 => 5,
    ALT2 => 6,
    ALT3 => 7,
    ALT4 => 3,
    ALT5 => 2,
};

{ # alt modes
    my @const = qw(
        ALT0
        ALT1
        ALT2
        ALT3
        ALT4
        ALT5
    );

    push @EXPORT_OK, @const;
    $EXPORT_TAGS{altmode} = \@const;
}

use constant {
    PUD_OFF => 0,
    PUD_DOWN => 1,
    PUD_UP => 2,
};

{ # pull
    my @const = qw(
        PUD_UP
        PUD_DOWN
        PUD_OFF
    );

    push @EXPORT_OK, @const;
    $EXPORT_TAGS{pull} = \@const;
};

use constant {
    HIGH => 1,
    LOW => 0,
    ON => 1,
    OFF => 0,
};

{ # state

    my @const = qw(
        HIGH
        LOW
        ON
        OFF
    );

    push @EXPORT_OK, @const;
    $EXPORT_TAGS{state} = \@const;
}

use constant {
    EDGE_SETUP => 0,
    EDGE_FALLING => 1,
    EDGE_RISING => 2,
    EDGE_BOTH   => 3,
};

{ # interrupt

    my @const = qw(
        EDGE_SETUP
        EDGE_FALLING
        EDGE_RISING
        EDGE_BOTH
    );

    push @EXPORT_OK, @const;
    $EXPORT_TAGS{edge} = \@const;
}

use constant {
    RPI_MODE_WPI => 0,
    RPI_MODE_GPIO => 1,
    RPI_MODE_GPIO_SYS => 2,
    RPI_MODE_PHYS => 3,
    RPI_MODE_UNINIT => -1,
};

{ # mode

    my @const = qw(
        RPI_MODE_WPI
        RPI_MODE_GPIO
        RPI_MODE_GPIO_SYS
        RPI_MODE_PHYS
        RPI_MODE_UNINIT
    );

    push @EXPORT_OK, @const;
    $EXPORT_TAGS{mode} = \@const;
}

use constant {
    MCP23017_IODIRA     => 0x00,
    MCP23017_IODIRB     => 0x01,
    MCP23017_IPOLA      => 0x02,
    MCP23017_IPOLB      => 0x03,
    MCP23017_GPINTENA   => 0x04,
    MCP23017_GPINTENB   => 0x05,
    MCP23017_DEFVALA    => 0x06,
    MCP23017_DEFVALB    => 0x07,
    MCP23017_INTCONA    => 0x08,
    MCP23017_INTCONB    => 0x09,
    MCP23017_IOCONA     => 0x0A,
    MCP23017_IOCONB     => 0x0B,
    MCP23017_GPPUA      => 0x0C,
    MCP23017_GPPUB      => 0x0D,
    MCP23017_INTFA      => 0x0E,
    MCP23017_INTFB      => 0x0F,
    MCP23017_INTCAPA    => 0x10,
    MCP23017_INTCAPB    => 0x11,
    MCP23017_GPIOA      => 0x12,
    MCP23017_GPIOB      => 0x13,
    MCP23017_OLATA      => 0x14,
    MCP23017_OLATB      => 0x15,

    MCP23017_INPUT      => 1,
    MCP23017_OUTPUT     => 0,
};

{ # MCP23017 GPIO Expander Registers

    my @const = qw(
        MCP23017_IODIRA
        MCP23017_IODIRB
        MCP23017_IPOLA
        MCP23017_IPOLB
        MCP23017_GPINTENA
        MCP23017_GPINTENB
        MCP23017_DEFVALA
        MCP23017_DEFVALB
        MCP23017_INTCONA
        MCP23017_INTCONB
        MCP23017_IOCONA
        MCP23017_IOCONB
        MCP23017_GPPUA
        MCP23017_GPPUB
        MCP23017_INTFA
        MCP23017_INTFB
        MCP23017_INTCAPA
        MCP23017_INTCAPB
        MCP23017_GPIOA
        MCP23017_GPIOB
        MCP23017_OLATA
        MCP23017_OLATB
        MCP23017_INPUT
        MCP23017_OUTPUT
    );

    push @EXPORT_OK, @const;
    $EXPORT_TAGS{mcp23017_registers} = \@const;
}

use constant {
    # Bank A pin numbers (pins 0-7)
    A0 => 0,
    A1 => 1,
    A2 => 2,
    A3 => 3,
    A4 => 4,
    A5 => 5,
    A6 => 6,
    A7 => 7,

    # Bank B pin numbers (pins 8-15)
    B0 => 8,
    B1 => 9,
    B2 => 10,
    B3 => 11,
    B4 => 12,
    B5 => 13,
    B6 => 14,
    B7 => 15,
};

{ # MCP23017 named pin numbers (bank A pins 0-7, bank B pins 8-15)

    my @const = qw(
        A0 A1 A2 A3 A4 A5 A6 A7
        B0 B1 B2 B3 B4 B5 B6 B7
    );

    push @EXPORT_OK, @const;
    $EXPORT_TAGS{mcp23017_pins} = \@const;
}

use constant {
    WPI_PIN_BCM => 1,
    WPI_PIN_WPI => 2,
};

{ # WPIPinType pin-numbering (wiringPiSetupPinType / wiringPiSetupGpioDevice)

    # WPI_PIN_PHYS is intentionally omitted - physical-pin setup is not
    # supported anywhere in the RPi:: suite.

    my @const = qw(
        WPI_PIN_BCM
        WPI_PIN_WPI
    );

    push @EXPORT_OK, @const;
    $EXPORT_TAGS{wpi_pin} = \@const;
}

use constant {
    INT_EDGE_SETUP   => EDGE_SETUP,
    INT_EDGE_FALLING => EDGE_FALLING,
    INT_EDGE_RISING  => EDGE_RISING,
    INT_EDGE_BOTH    => EDGE_BOTH,
};

{ # wiringPi-native edge names (mirror wiringPi's INT_EDGE_* #defines)

    my @const = qw(
        INT_EDGE_SETUP
        INT_EDGE_FALLING
        INT_EDGE_RISING
        INT_EDGE_BOTH
    );

    push @EXPORT_OK, @const;
    $EXPORT_TAGS{int_edge} = \@const;
}

sub _vim{1;};
1;
__END__