for my $name (undef, ':)') {
eval {
- LaTeX::TikZ::Interface->import(
+ LaTeX::TikZ::Interface->register(
$name => sub { },
);
};
}
eval {
- LaTeX::TikZ::Interface->import(
+ LaTeX::TikZ::Interface->register(
'raw' => sub { },
);
};
for my $code (undef, [ ]) {
eval {
- LaTeX::TikZ::Interface->import(
+ LaTeX::TikZ::Interface->register(
'foo' => $code,
);
};
}
eval {
- LaTeX::TikZ::Interface->import(
+ LaTeX::TikZ::Interface->register(
'foo' => sub { @_ },
);
};
is_deeply [ Tikz->foo('hello') ], [ Tikz, 'hello' ], 'Tikz->foo works';
eval {
- LaTeX::TikZ::Interface->import(
+ LaTeX::TikZ::Interface->register(
'bar' => sub { @_ },
'baz' => undef,
);