Multi-lingual Inline poetry (mixing languages with Inline)

[Patrick LeBoutillier]

Here's a little test I did just for the fun of it :)

-----8<-----
#!/usr/bin/perl 

use strict ;

use Inline (Java => qq|
class LJ { 
   public static String LJ(){ 
      return "Java" ; 
   }
}
|) ;

use Inline (Python => qq|
def LP():
   return "Python"
|) ;

use Inline (Tcl => qq|
proc LT { } {
   return "Tcl"
}
|) ;

use Inline (C => qq|
SV *LC() {
   return newSVpv("C", 0) ;
}
|) ;


my @ls = () ;
push @ls, LJ->LJ() ;
push @ls, LP() ;
push @ls, LT() ;
push @ls, LC() ;

foreach my $l (@ls){
   print "This little script went to $l.\n" ;
}
print "This little script cried Inline, Inline, Inline\n" .
   "  all the way home.\n" ;
-----8<-----

Output:
This little script went to Java.
This little script went to Python.
This little script went to Tcl.
This little script went to C.
This little script cried Inline, Inline, Inline
  all the way home.


Cheers