Guest User

Untitled

a guest
Oct 19th, 2018
108
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.93 KB | None | 0 0
  1. package Errlock::Widget::Log;
  2.  
  3. use strict;
  4. use warnings;
  5.  
  6. use Gtk2;
  7. use Glib::Object::Subclass
  8.     Gtk2::ScrolledWindow::;
  9.  
  10. BEGIN {
  11.     require Exporter;
  12.     # set the version for version checking
  13.     our $VERSION = 0.1;
  14.     # Inherit from Exporter to export functions and variables
  15.     our @ISA = qw(Exporter);
  16.     #push @ISA, qw(Exporter);
  17.     # Functions and variables which are exported by default
  18.     our @EXPORT = qw(LOG_NOTICE LOG_WARN LOG_ERROR LOG_FATAL LOG_DEBUG);
  19.     # Functions and variables which can be optionally exported
  20.     #our @EXPORT_OK = qw($Var1 %Hashit func3);
  21. }
  22.  
  23. sub new {
  24.     my $class = shift;
  25.     my $self = $class->SUPER::new();
  26.     bless($self, $class);
  27.  
  28.     #
  29.     # Do some stuff that can't be done in INIT_INSTANCE
  30.     # but i doubt that even INIT_INSTANCE would work
  31.     #
  32.  
  33.     return $self;
  34. }
  35.  
  36. # output
  37. # Can't locate object method "new" via package "Errlock::Widget::Log::SUPER"
Add Comment
Please, Sign In to add comment