File Coverage

lib/Music/AirGuitar/Performance.pm

Criterion	Covered	Total	%
statement	17	43	39.5
branch	0	8	0.0
condition	0	2	0.0
subroutine	6	11	54.5
pod	2	2	100.0
total	25	66	37.8

# Copyright (c) 2025 Philipp Schafft

# licensed under Artistic License 2.0 (see LICENSE file)

# ABSTRACT: Interface for air guitars performances


package Music::AirGuitar::Performance;

use v5.16;
use strict;
use warnings;

use Carp;

use Music::AirGuitar;

our $VERSION = v0.04;

{
    no strict 'refs'; # This is an invalid access, but it is the only one working in perl v5.24.1, the correct one segfaults.
    foreach my $attribute (qw(guitar duration)) {
        *$attribute = sub { my ($self, @args) = @_; return $self->Music::AirGuitar::_attribute($attribute, @args); };
    }

    # proxy methods
    foreach my $attribute (qw(player)) {
        *$attribute = sub { my ($self, @args) = @_; return $self->guitar->_attribute($attribute, @args); };
    }
}


sub record {
    my ($self, $fn) = @_;
    my $filelen = ($self->duration * 48000 * 1 * (16/8)) + 44;
    my $fh;

    if (ref $fn) {
        $fh = $fn;
    } else {
        open($fh, '>', $fn) or croak 'Cannot open file: '.$fn.': '.$!;
    }

    $fh->binmode;
    $fh->print(pack('a4Va4', 'RIFF', $filelen - 8, 'WAVE'));
    $fh->print(pack('a4VvvVVvv', 'fmt ', 16, 1, 1, 48000, 48000 * 1 * 16/8, 1 * 16/8, 16));
    $fh->print(pack('a4V', 'data', $filelen - 44));
    $fh->truncate($filelen);

    return undef;
}


# ---- special getters ----


sub rating {
    my ($self, %opts) = @_;
    my $scale = $opts{scale} // 'of10';
    my $rating = $self->{rating};

    if ($scale eq 'of10') {
        return sprintf('%2.1f', $rating * 10);
    }

    croak 'Unknown/unsupported scale: '.$scale;
}

# ---- Private helpers ----

sub _new {
    my ($pkg, %opts) = @_;

    # Find a rating, be a bit more on the positive side.
    $opts{rating} = rand(1.2);
    $opts{rating} = 1 if $opts{rating} > 1;

    my $self = bless \%opts, $pkg;
}


1;

__END__