File Coverage

blib/lib/RPi/Const.pm

Criterion	Covered	Total	%
statement	33	34	97.0
branch			n/a
condition			n/a
subroutine	11	12	91.6
pod			n/a
total	44	46	95.6

package RPi::Const;

use strict;
use warnings;

our $VERSION = '1.03';

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;
}

sub _vim{1;};
1;
__END__