X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FMod%2FRaw.pm;h=28b1d1dc69c420e41fc85efd81a506f686c648b8;hb=71e1955831ab58cb00222af090f85f01516d0cca;hp=c6e1a2c1ad51c99f79358049c7e962689fc6dd70;hpb=22f1a59ec62500605cf907a4117faf25160ad92c;p=perl%2Fmodules%2FLaTeX-TikZ.git diff --git a/lib/LaTeX/TikZ/Mod/Raw.pm b/lib/LaTeX/TikZ/Mod/Raw.pm index c6e1a2c..28b1d1d 100644 --- a/lib/LaTeX/TikZ/Mod/Raw.pm +++ b/lib/LaTeX/TikZ/Mod/Raw.pm @@ -15,6 +15,8 @@ Version 0.01 our $VERSION = '0.01'; +use LaTeX::TikZ::Interface; + use Any::Moose; with 'LaTeX::TikZ::Mod'; @@ -28,7 +30,7 @@ has 'content' => ( sub tag { my ($self) = @_; - ref($self) . '%' . $self->content; + ref($self) . '/' . $self->content; } sub cover { 1 } @@ -37,11 +39,13 @@ sub declare { } sub apply { $_[0]->content } -use LaTeX::TikZ::API raw_mod => sub { - shift; +LaTeX::TikZ::Interface->register( + raw_mod => sub { + shift; - __PACKAGE__->new(content => $_[0]); -}; + __PACKAGE__->new(content => $_[0]); + }, +); __PACKAGE__->meta->make_immutable;