view release on metacpan or  search on metacpan

lib/Music/Abc/DT.pm  view on Meta::CPAN

  if ($sym->{text}) {
    $proc = $abch{'gchord'} || $proc;

    # bar::gchord
    $proc = $abch{ $element . 'gchord' } || $proc;

    my $gchord = $sym->{text};
    # Multiple chords per element can be notated writing two or more consecutive
    # chords before the same element, or using the separating characters ; or \n
    $gchord =~ tr/;/\n/;
    my @gchords = split m/\n/xms, $gchord;

    # stops the search after the first match; the first gchords have priority
    # eg: 'gchord::F'
    foreach my $gc (@gchords) {
      $proc = $abch{ "gchord::$gc" } || $proc;
      last if $abch{ "gchord::$gc" };
    }

    # stops the search after the first match; the first gchords have priority
    # eg: 'bar::gchord::F'