—package
ZooZ::Fonts;
$ZooZ::Fonts::VERSION
=
'1.9.1'
;
use
strict;
sub
new {
my
$class
=
shift
;
my
$self
=
bless
{
FONTS
=> {},
I
=> 0,
} =>
$class
;
return
$self
;
}
sub
add {
my
(
$self
,
$name
,
$obj
) =
@_
;
$self
->{FONTS}{
$name
} =
$obj
;
}
sub
remove {
delete
$_
[0]{FONTS}{
$_
[1]} }
sub
listAll {
keys
%{
$_
[0]{FONTS}} }
sub
obj {
$_
[0]{FONTS}{
$_
[1]} }
sub
FontExists {
exists
$_
[0]{FONTS}{
$_
[1]} }
sub
index
{
$_
[0]->{I}++ }
sub
newName {
my
$self
=
shift
;
my
$i
=
$self
->
index
;
return
"_Font_$i"
;
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
ZooZ::Fonts
=head1 VERSION
version 1.9.1
=head1 AUTHOR
Ala Qumsieh, faraco <skelic3@gmail.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2004-2005, 2018 by Ala Qumsieh, faraco.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut