Some more work on Userdetails has been done, still not done..

[onis.git] / lib / Onis / Plugins / Bignumbers.pm

diff --git a/lib/Onis/Plugins/Bignumbers.pm b/lib/Onis/Plugins/Bignumbers.pm
index 3146f5d..2c6c7c1 100644 (file)
--- a/lib/Onis/Plugins/Bignumbers.pm
+++ b/lib/Onis/Plugins/Bignumbers.pm
@@ -3,6 +3,8 @@ package Onis::Plugins::Bignumbers;
 use strict;
 use warnings;
 
+use Exporter;
+
 use Onis::Html (qw(get_filehandle));
 use Onis::Language (qw(translate));
 use Onis::Data::Core (qw(get_main_nick register_plugin));
@@ -10,6 +12,9 @@ use Onis::Data::Persistent ();
 use Onis::Users (qw(nick_to_name));
 use Onis::Plugins::Core (qw(get_core_nick_counters));
 
+@Onis::Plugins::Bignumbers::EXPORT_OK = (qw(get_bignumbers));
+@Onis::Plugins::Bignumbers::ISA = ('Exporter');
+
 our $BigNumbers = Onis::Data::Persistent->new ('BigNumbers', 'nick', qw(questions uppercase smiley_happy smiley_sad));
 our $CalcData = {};
 
@@ -391,3 +396,15 @@ sub sort_by_field
 
        return (@retval);
 }
+
+sub get_bignumbers
+{
+       my $nick = shift;
+
+       if (!defined ($CalcData->{$nick}))
+       {
+               return ({});
+       }
+
+       return ($CalcData->{$nick});
+}