package UCW::RPi::Led;

# Copyright (c) 2013  Petr Baudis <pasky@ucw.cz>

use warnings;
use strict;
use v5.10;

sub init {
	open my $fd, '>/sys/class/leds/led0/trigger' or die "led trigger: $!";
	say $fd "none";
	close $fd;
}

# TODO: cache brightness fh and just seek?

sub enable {
	open my $fd, '>/sys/class/leds/led0/brightness' or die "led brightness: $!";
	say $fd "1";
	close $fd;
}

sub disable {
	open my $fd, '>/sys/class/leds/led0/brightness' or die "led brightness: $!";
	say $fd "0";
	close $fd;
}

1;