Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- package Errlock::Widget::Log;
- use strict;
- use warnings;
- use Gtk2;
- use Glib::Object::Subclass
- Gtk2::ScrolledWindow::;
- BEGIN {
- require Exporter;
- # set the version for version checking
- our $VERSION = 0.1;
- # Inherit from Exporter to export functions and variables
- our @ISA = qw(Exporter);
- #push @ISA, qw(Exporter);
- # Functions and variables which are exported by default
- our @EXPORT = qw(LOG_NOTICE LOG_WARN LOG_ERROR LOG_FATAL LOG_DEBUG);
- # Functions and variables which can be optionally exported
- #our @EXPORT_OK = qw($Var1 %Hashit func3);
- }
- sub new {
- my $class = shift;
- my $self = $class->SUPER::new();
- bless($self, $class);
- #
- # Do some stuff that can't be done in INIT_INSTANCE
- # but i doubt that even INIT_INSTANCE would work
- #
- return $self;
- }
- # output
- # Can't locate object method "new" via package "Errlock::Widget::Log::SUPER"
Add Comment
Please, Sign In to add comment