use Pastel
::Mixin
::Mixin
;
@ISA = qw( Pastel::Mixin::Mixin);
my $class = ref($arg) || $arg;
my $xml_string = $self->xml($string);
$self->{xml_string
} = $xml_string;
#Split the string data into characters
my (@characters) = split( //, $arg);
for( my $i = 0; $i < @characters; $i++){
if ( $characters[$i] eq '<' ){
elsif ( $characters[$i] eq '>' ){
elsif ( $characters[$i] eq "'" ){
elsif ( $characters[$i] eq '"' ){
elsif( $characters[$i] eq '&' ) {
elsif ( $self->get_code($characters[$i]) < 32 ) {
$xml .=$self->get_hex( $self->get_code( $characters[$i]));
elsif ( $self->get_code($characters[$i]) > 126 ){
$xml .= $self->get_hex( $self->get_code($characters[$i]) );
return unpack("H2", pack("C", $code) );
my ( $self, $font ) = @_;
if ( defined( $self->{font
} ) ) {
$svg .= "<text x=\"".$self->get_x()."\" y=\"".$self->get_y()."\" ";
if ( my $font = $self->get_font() ){
$svg .= $font->get_svg_string();
$svg .= " fill:".$g->get_paint->to_hex().';';
#$svg .= $g->get_paint()->to_svg();
$svg .= $self->get_xml_string();
if ( defined ( $self->{xml_string
} ) ){
return $self->{xml_string
};
#print STDERR "Set x called \n";
$self->{x
} = join " ", @
{$x};
#print STDERR "set_x: $x\n";
#print STDERR "Set y called:$y\n";
$self->{y
} = join " ", @
{$y};
if(defined( $self->{x
}) ){
if(defined( $self->{y
}) ){