File Coverage

blib/lib/App/Music/PlayTab/NoteMap.pm

Criterion	Covered	Total	%
statement	15	17	88.2
branch	4	4	100.0
condition			n/a
subroutine	6	8	75.0
pod	0	4	0.0
total	25	33	75.7

#! perl

# Author          : Johan Vromans
# Created On      : Wed Aug 22 22:33:31 2007
# Last Modified By: Johan Vromans
# Last Modified On: Tue Apr 19 16:24:17 2011
# Update Count    : 6
# Status          : Unknown, Use with caution!

package App::Music::PlayTab::NoteMap;

use strict;
use warnings;

our $VERSION = "1.005";

use base qw(Exporter);
our @EXPORT_OK;
BEGIN {
    @EXPORT_OK = qw(@FNotes @SNotes note_to_key key_to_note);
}

# All notes, using sharps.
our @SNotes =
  # 0    1    2    3    4    5    6    7    8    9    10   11
  ('C', 'C#','D', 'D#','E', 'F', 'F#','G', 'G#','A', 'A#','B');

# All notes, using flats.
our @FNotes =
  # 0    1    2    3    4    5    6    7    8    9    10   11
  ('C', 'Db','D', 'Eb','E', 'F', 'Gb','G', 'Ab','A', 'Bb','B');

# The current mapping. This can be changed by set_flat/set_sharp.
my $Notes = \@SNotes;

# Reverse mapping (plain notes only).
my %Notemap;
for ( my $i = 0; $i < @SNotes; $i++ ) {
    $Notemap{$SNotes[$i]} = $i if length($SNotes[$i]) == 1;
}

sub set_flat {
    my $Notes = \@FNotes;
}

sub set_sharp {
    my $Notes = \@SNotes;
}

sub note_to_key {
    $Notemap{uc shift()};
}

sub key_to_note {
    my ($key, $flat) = @_;
    return $Notes->[$key] unless defined $flat;
    return $FNotes[$key] if $flat;
    $SNotes[$key];
}

1;

__END__