Switch to qw<>

[perl/modules/LaTeX-TikZ.git] / t / 01-api.t

diff --git a/t/01-api.t b/t/01-api.t
index 9f00401b3c6283a0727d879a317ac8a92b0d7341..dd098d96fa2d490a128d78cf64645016517a2a69 100644 (file)
--- a/t/01-api.t
+++ b/t/01-api.t
@@ -28,7 +28,7 @@ is(prototype('Tikz'), '', 'main::Tikz is actually a constant');
  ::is(prototype('T'), '', 'LaTeX::TikZ::TestAPI2::T is actually a constant');
 }
 
-my @methods = qw/
+my @methods = qw<
  formatter functor
  raw
  path seq
@@ -36,7 +36,7 @@ my @methods = qw/
  raw_mod
  clip layer
  width color fill pattern
-/;
+>;
 
 for (@methods) {
  ok(Tikz->can($_), "Tikz evaluates to something that ->can($_)");