The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
object Prima::Clipboard( Prima::Component)
{
   int openCount;

   method void   clear();
   method void   close();
   method void   deregister_format( char * format);
   method void   done();
   method SV *   fetch( char * format);
   method Bool   format_exists( char * format);
   method SV *   get_handle();
   public void   get_formats();
   public void   get_registered_formats();
   public void   get_standard_clipboards();
   method void   init( HV * profile);
   method Bool   open();
   method Bool   register_format( char * format);
   method Bool   store( char * format, SV * data);
   c_only Bool   validate_owner( Handle * newOwner, HV * profile);
}