File Coverage

blib/lib/CMS/Drupal/Types.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	24	24	100.0

package CMS::Drupal::Types;
$CMS::Drupal::Types::VERSION = '0.090';
# ABSTRACT: A Perl type library for working with Drupal

use strict;
use warnings;
use 5.010;

use Type::Library -base, -declare => qw/ DBName
                                         DBDriver
                                         DBUsername
                                         DBPassword
                                         DBHost
                                         DBPort
                                         DBPrefix /;
use Type::Utils qw/ :all /;
use Types::Standard qw/ Optional Maybe Str StrMatch Int slurpy Dict /;

declare DBName, as Str, where { length > 0 },
  message { 'You must supply the database name. ' };

declare DBDriver, as StrMatch[ qr{ ^(mysql|Pg|SQLite)$ }x ],
  message { 'You must supply the name of a valid installed dbi:dbd driver (mysql, Pg, or SQLite). ' };

declare DBUsername, as Optional[Str],
  message { 'The username must be a string. ' };

declare DBPassword, as Optional[Str],
  message { 'The password must be a string. ' };

declare DBHost, as Optional[Str],
  message { 'The hostname must be a string. ' };

declare DBPort, as Optional[Int],
  message { 'The port number must be an integer. ' };

declare DBPrefix, as Optional[StrMatch[ qr/ \w+_ /x ]],
  message { return 'The table prefix must end in an underscore. ' };

1; ## return true to end package CMS::Drupal::Types
__END__