Select Code to Download

Device::BCM2835::gpio_fsel(...);

*gpio_fsel = \&Device::BCM2835::gpio_fsel;

for my $sub (qw{gpio_fsel gpio_set gpio_clr}) {
    no strict 'refs';
    *$sub = \&{"Device::BCM2835::$sub"};
}

gpio_fsel(...);
gpio_set(...);
gpio_clr(...);