It appears that Inline::Java is the best maintained and robust way to manipulate Java classes from Perl, whether those classes are built on-the-fly or already in Java classes.

Let's be literal

The Clojure website shows a one-line Java Swing example

(javax.swing.JOptionPane/showMessageDialog nil "Hello World")
[download]

that I would like to get working in Inline::Java

However, my attempt at doing so:

use Inline (
  Java => 'STUDY',
  STUDY => ['javax.swing.JOptionPane']
);

javax::swing::JOptionPane->showMessageDialog("Hello World");
[download]

leads to the error:

In method showMessageDialog of class javax::swing::JOptionPane: Can't 
+find any signature that matches the arguments passed (Hello World).
Available signatures are:
    static showMessageDialog(java.awt.Component, java.lang.Object, jav
+a.lang.String, int)
        error was: Wrong number of arguments at C:/strawberry/perl/sit
+e/lib/Inline/Java/Object.pm line 107
    static showMessageDialog(java.awt.Component, java.lang.Object, jav
+a.lang.String, int, javax.swing.Icon)
        error was: Wrong number of arguments at C:/strawberry/perl/sit
+e/lib/Inline/Java/Object.pm line 107
    static showMessageDialog(java.awt.Component, java.lang.Object)
        error was: Wrong number of arguments at C:/strawberry/perl/sit
+e/lib/Inline/Java/Object.pm line 107 at C:\Users\thequietcenter\prg\t
+mp\inline\try2.pl line 6
[download]

Apparently some closure magick prepared two other args before making the call. Since I know ZERO java, I have no idea what those

Phase 2: let's try something else

When the message approach failed, I did not give up. Instead, I googled for java swing hello world and came up with this beauty:

package start;

/*
 * HelloWorldSwing.java requires no other files. 
 */
import javax.swing.*;        

public class HelloWorldSwing {
    /**
     * Create the GUI and show it.  For thread safety,
     * this method should be invoked from the
     * event-dispatching thread.
     */
    private static void createAndShowGUI() {
        //Create and set up the window.
        JFrame frame = new JFrame("HelloWorldSwing");
        frame.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);

        //Add the ubiquitous "Hello World" label.
        JLabel label = new JLabel("Hello World");
        frame.getContentPane().add(label);

        //Display the window.
        frame.pack();
        frame.setVisible(true);
    }

    public static void main(String[] args) {
        //Schedule a job for the event-dispatching thread:
        //creating and showing this application's GUI.
        javax.swing.SwingUtilities.invokeLater(new Runnable() {
            public void run() {
                createAndShowGUI();
            }
        });
    }
}
[download]

(sans 20 lines of copyright notices)

Now, I almost got it working in Inline::Java

use Inline (
  Java => 'STUDY',
  STUDY => [ qw(javax.swing.JFrame javax.swing.JLabel java.awt.Contain
+er) ]
);


my $f = javax::swing::JFrame->new;

my $l = javax::swing::JLabel->new("Hello World");

$f->getContentPane->add($l);
$f->pack;
#$f->setVisible
[download]

but now I get the error

Can't call method 'add' on an object (Inline::Java::Object) that is
not bound to Perl at C:\Users\thequietcenter\prg\tmp\inline\try2.pl
line 13
[download]

lets get this done

So any help on a graphic hello world in Perl using Java is requested