sub new
    {
        my ($class, %params) = @_;
        my  $self = $class->SUPER::new(%params);
        $self->{block_name} = $params{'block name'};
        return $self;
    }