File Coverage

blib/lib/MySQL/Partition/Type/List.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	6	8	75.0
condition	2	3	66.6
subroutine	4	4	100.0
pod			n/a
total	31	34	91.1

package MySQL::Partition::Type::List;
use strict;
use warnings;

use parent 'MySQL::Partition';

sub _build_partition_part {
    my ($self, $partition_name, $partition_description) = @_;

    my $comment;
    if (ref $partition_description && ref $partition_description eq 'HASH') {
        $comment = $partition_description->{comment};
        $comment =~ s/'//g if defined $comment;
        $partition_description = $partition_description->{description};
        die 'no partition_description is specified' unless $partition_description;
    }
    my $part = sprintf 'PARTITION %s VALUES IN (%s)', $partition_name, $partition_description;
    $part .= " COMMENT = '$comment'" if $comment;
    $part;
}

1;
__END__