package BN::Parser;

use strict;
use warnings;

use utf8;
use Encode;
use encoding 'utf8';


use threads;
use threads::shared;
use Thread::Queue;

# конструктор
sub new {

    my $self :shared = shared_clone({
    });

    return bless $self;

}

sub init {
    my $self = shift;

    threads->create(sub {});
}

# метод, который является тредом
sub run {
    #my $self = shift;
    my $nThread = 0;

    #my ($self, $nThread) = @_;

    print "Thread $nThread starting...\n";

    #while (1) {
    #    print "Thread $nThread : loop sarts\n";
    #    sleep $_SET->{threads_pause}; # задержка
    #    #next unless $BN::Parser::queue->pending(); # ждем, пока не появится что-нибудь в очереди
    #
    #    my $url = $BN::Parser::dequeue; # вынимаем из очереди
    #
    #
    #
    #    #undef $url;
    #
    #    print "Thread $nThread : loop ends\n";
    #}

}


1;