Select Code to Download

$api->set_light_times;

sub set_light_times {
    my ($self) = @_;
...
    );

}

sub action_light {
    my ($self) = @_;
...
        $self->set_light_times;
    }
}