/usr/lib/perl5/Wx/DND.pm is in libwx-perl 1:0.9922-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 | #############################################################################
## Name: ext/dnd/lib/Wx/DND.pm
## Purpose: Wx::DND pulls in all wxWidgets Drag'n'Drop and Clipboard
## Author: Mattia Barbon
## Modified by:
## Created: 12/08/2001
## RCS-ID: $Id: DND.pm 3083 2011-07-04 16:44:05Z mdootson $
## Copyright: (c) 2001-2004, 2007 Mattia Barbon
## Licence: This program is free software; you can redistribute it and/or
## modify it under the same terms as Perl itself
#############################################################################
package Wx::DND;
use Wx;
use strict;
use vars qw($VERSION);
$VERSION = '0.01';
Wx::wx_boot( 'Wx::DND', $VERSION );
use Wx::DropSource;
#
# properly setup inheritance tree
#
no strict;
package Wx::DropTarget;
package Wx::DropFilesEvent; @ISA = qw(Wx::Event);
package Wx::DataObject;
package Wx::DataObjectSimple; @ISA = qw(Wx::DataObject);
package Wx::PlDataObjectSimple; @ISA = qw(Wx::DataObjectSimple);
package Wx::DataObjectComposite;@ISA = qw(Wx::DataObject);
package Wx::FileDataObject; @ISA = qw(Wx::DataObjectSimple);
package Wx::TextDataObject; @ISA = qw(Wx::DataObjectSimple);
package Wx::BitmapDataObject; @ISA = qw(Wx::DataObjectSimple);
package Wx::Droptarget;
package Wx::PlDropTarget; @ISA = qw(Wx::DropTarget);
package Wx::TextDropTarget; @ISA = qw(Wx::DropTarget);
package Wx::FileDropTarget; @ISA = qw(Wx::DropTarget);
package Wx::URLDataObject; @ISA = qw(Wx::DataObject);
use strict;
#
# constants
#
package Wx;
use vars qw($_df_invalid $_df_bitmap $_df_text $_df_unicodetext $_df_metafile $_df_filename);
# !parser: sub { $_[0] =~ m/^\s*\#\s*sub\s+(wx\w+)/ }
# !package: Wx
# !tag: dnd clipboard
# sub wxDF_INVALID
# sub wxDF_TEXT
# sub wxDF_UNICODETEXT
# sub wxDF_BITMAP
# sub wxDF_METAFILE
# sub wxDF_FILENAME
1;
# Local variables: #
# mode: cperl #
# End: #
|