]> git.vpit.fr Git - perl/modules/LaTeX-TikZ.git/commitdiff
Register Tikz->formatter in the API
authorVincent Pit <vince@profvince.com>
Sun, 18 Jul 2010 17:15:42 +0000 (19:15 +0200)
committerVincent Pit <vince@profvince.com>
Sun, 18 Jul 2010 17:16:08 +0000 (19:16 +0200)
So that we no longer have to load LaTeX::TikZ::Formatter manually.

lib/LaTeX/TikZ/API.pm
lib/LaTeX/TikZ/Formatter.pm
t/10-set.t
t/20-mod.t

index 02724e4b43bbfa2125c281888522b80e2311e1f5..46fe198c5df5dc5a792d56c4e625c48348966a83 100644 (file)
@@ -54,6 +54,8 @@ sub register {
 }
 
 sub load {
+ require LaTeX::TikZ::Formatter;      # formatter
+
  require LaTeX::TikZ::Set::Raw;       # raw
 
  require LaTeX::TikZ::Set::Path;      # path
index 18abe13ef5ec872547aed19fd8f39de70f255db5..d349ed3d207d8794860da79dfd2c472bde903706 100644 (file)
@@ -159,6 +159,12 @@ sub thickness {
  0.8 * $width * ($tikz->scale / 5);
 }
 
+use LaTeX::TikZ::API formatter => sub {
+ shift;
+
+ __PACKAGE__->new(@_);
+};
+
 __PACKAGE__->meta->make_immutable;
 
 =head1 AUTHOR
index f21f587578d972afa6e00e4a27f2ada043b80d16..f8d4dee883657c2a1a27bf2535dc5e3dba358ab9 100644 (file)
@@ -6,9 +6,8 @@ use warnings;
 use Test::More tests => 12 + 2 * 7;
 
 use LaTeX::TikZ;
-use LaTeX::TikZ::Formatter;
 
-my $tikz = LaTeX::TikZ::Formatter->new(
+my $tikz = Tikz->formatter(
  format => '%d',
 );
 
index 38ab3fe5dcb13b22f1da4ebbe74cafee4c523633..a47106e3f33fdf17335c139758cd4c4ac55eb11f 100644 (file)
@@ -6,9 +6,8 @@ use warnings;
 use Test::More tests => 14 + 2 * 18;
 
 use LaTeX::TikZ;
-use LaTeX::TikZ::Formatter;
 
-my $tikz = LaTeX::TikZ::Formatter->new(
+my $tikz = Tikz->formatter(
  format => '%d',
 );