@ISA = qw
(Pastel
::Mixin
::Mixin
);
use Pastel
::Mixin
::Mixin
;
bless $self, ref($class) || $class;
my ($family, $style, $size) = $self->_rearrange(["FAMILY","STYLE","SIZE"],
if ( defined ( $family) ){
$self->{"family"} = $family;
if ( defined( $style ) ){
if( ($style =~ /^bold$/i) || ($style =~ /^italic$/i) ||
($style =~ /^bolditalic$/i) || ($style =~ /^plain$/i)|| ($style =~ /^regular$/i) ){
$self->{"style"} = $style;
croak
"Illegal style parameter in Pastel::Font\n";
$self->{"style"} = "REGULAR";
$self->{"id"} = $self->_id() ;
return $_[0]->{"family"};
$s .= "font-family:".$self->get_family()."; ";
$s .= "font-size:".$self->get_size()."pt;";
if( $self->{"style"} =~ /^bold$/i ){
$s .= "font-weight:bold;";
if( $self->{"style"} eq "bolditalic"){
$s .= 'font-style:italic;font-weight:bold';
if( $self->{"style"} eq "italic"){
$s .= 'font-style:italic';
my $string_object = shift;
$string_object->{"font"} = $self;
my ($filename, $type) = $self->_rearrange( ["FILE","TYPE"], @args );
# $self->{"type"} = "TTF";
$font_parser = Pastel
::Font
::TTF
->create_from_file($filename);
return $self->new($font_parser->get_font_family(),$font_parser->get_subfamily());
croak
'Error: Argument missing in Pastel::Font::create_from file()', "\n";