diff options
Diffstat (limited to 'lib/GridFiller/Types.pm')
-rw-r--r-- | lib/GridFiller/Types.pm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/lib/GridFiller/Types.pm b/lib/GridFiller/Types.pm index 92834ba..90e094f 100644 --- a/lib/GridFiller/Types.pm +++ b/lib/GridFiller/Types.pm @@ -1,9 +1,13 @@ package GridFiller::Types; +use strict; +use warnings; +use namespace::autoclean; use MooseX::Types -declare => [qw( GridT GridStatusT CharT LetterCellT TextResultT WordListT + FontDescrT FontOptT )]; use MooseX::Types::Moose qw(Str ArrayRef Int); use MooseX::Types::Structured qw(Tuple); @@ -23,4 +27,15 @@ subtype WordListT, as ArrayRef[Str]; subtype TextResultT, as ArrayRef[ArrayRef[LetterCellT]]; +class_type FontDescrT, { class => 'Pango::FontDescription' }; + +coerce FontDescrT, + from Str, + via { + require Pango; + Pango::FontDescription->from_string($_); + }; + +class_type FontOptT, { class => 'Cairo::FontOptions' }; + 1; |