6 |
#with 'Frey::Storage'; |
#with 'Frey::Storage'; |
7 |
|
|
8 |
use Cairo; |
use Cairo; |
9 |
|
use Font::FreeType; |
10 |
|
|
11 |
has path => ( |
has path => ( |
12 |
is => 'rw', |
is => 'rw', |
60 |
sub as_markup { |
sub as_markup { |
61 |
my ($self) = @_; |
my ($self) = @_; |
62 |
|
|
|
|
|
|
unless (Cairo::HAS_FT_FONT && eval 'use Font::FreeType; 1;') { |
|
|
die 'need Cairo with FreeType support and Font::FreeType'; |
|
|
} |
|
|
|
|
63 |
my @fonts = ( |
my @fonts = ( |
64 |
'/usr/share/fonts/truetype/ttf-dejavu/DejaVuSans.ttf', |
'/usr/share/fonts/truetype/ttf-dejavu/DejaVuSans.ttf', |
65 |
'/usr/share/fonts/truetype/ttf-inconsolata/Inconsolata.otf', |
'/usr/share/fonts/truetype/ttf-inconsolata/Inconsolata.otf', |