Type detection: Difference between revisions

Content added Content deleted

Inline

@@ Line 344: / Line 344: @@
 $fmt = "%-11s is type:  %s\n";
-printf $fmt, '$scalar',    detect(\$scalar);
+printf $fmt, '$scalar',    ref(\$scalar);
-printf $fmt, '@array',     detect(\@array);
+printf $fmt, '@array',     ref(\@array);
-printf $fmt, '%hash',      detect(\%hash);
+printf $fmt, '%hash',      ref(\%hash);
-printf $fmt, '$regex',     detect( $regex);
+printf $fmt, '$regex',     ref( $regex);
-printf $fmt, '$reference', detect(\$reference);
+printf $fmt, '$reference', ref(\$reference);
+printf $fmt, '$subref',    ref( $subref);</lang>
-sub greet { print "Hello world!" };
-printf $fmt, '$subref',    detect( $subref);</lang>
 {{out}}
 <pre>$scalar     is type:  SCALAR