Dear monks

This question is probably very specific to wxPerl - unless I have overlooked something daft.
From what I can tell, the way to create a wxFont object is as follows:

my $font = Wx::Font->new(..)
[download]

however when I put that into practice, I get the error "Usage: Wx::Font::newNativeInfo(CLASS, info) at ./localetest.pl line 13."
What am I doing wrong?

#!/usr/bin/perl

use warnings;
use Wx qw(wxDEFAULT
          wxNORMAL
          wxFONTENCODING_DEFAULT);

package TestApp;
use base 'Wx::App';

sub OnInit {
  my $this = shift;
  my $font = Wx::Font->new(     14,
                                wxDEFAULT,
                                wxNORMAL,
                                wxNORMAL,
                                0,
                                "",
                                wxFONTENCODING_DEFAULT);
}

package main;

my $app = TestApp->new();
[download]