File Coverage

blib/lib/Lingua/ES/Silabas.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	5	6	83.3
condition			n/a
subroutine	3	3	100.0
pod	0	1	0.0
total	25	27	92.5

package Lingua::ES::Silabas;

use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);

our @EXPORT = qw(silabas);

our $VERSION = '0.01';

######################################################################

# grupos consonánticos
my @GC = qw(
               bl br
            ch cl cr
	       dl dr
	       fl fr
	       gl gr
	       ll
	       pl pr
		  rr
	       tl tr
	   );

my $VA  = 'áéíóúÁÉÍÓÚ';   # vocales acentuadas
my $VD  = '[iuüÜ]';   # vocales débiles
my $VF  = "[aeo$VA]";  # vocales fuertes
my $V   = "(?:$VD|$VF)";  # vocales
my $C   = '[b-df-hj-np-tv-zñÑ]';  # consonantes
my $CoGC = '(?:'. join('|', @GC) ."|$C)";  # consonantes y grupos consonánticos

my $dipt = "(?:${VD}h?$VF|${VF}h?$VD|$V$V)";  # diptongos
my $tript = "(?:$V$V$V)";  # triptongos

sub silabas ($) {
    my $palabra = shift;
    my @silabas;

    while ($palabra) {

        if ($palabra =~ /^($C*?(?:$tript|$dipt|$V)$C{0,2}?)$CoGC$V/io) {
            push @silabas, $1;
            substr $palabra, 0, $+[1], '';
        } else {
            push @silabas, $palabra;
            undef $palabra;
        }

    }

    # hiatos
    @silabas = map {
                   !/(.*?$VF$VD?)(?(?=$VF$VF)($VF))($VF.*)/sio ? $_         :
		                                            $2 ? ($1,$2,$3) :
							         ($1,$3)
		   } @silabas;

    return @silabas;
}

1;

__END__