view release on metacpan or  search on metacpan

lib/Math/LOESS/_swig.pm  view on Meta::CPAN

@ISA = qw( Math::LOESS::_swig );
%OWNER = ();
%ITERATORS = ();
*swig_span_get = *Math::LOESS::_swigc::loess_model_span_get;
*swig_span_set = *Math::LOESS::_swigc::loess_model_span_set;
*swig_degree_get = *Math::LOESS::_swigc::loess_model_degree_get;
*swig_degree_set = *Math::LOESS::_swigc::loess_model_degree_set;
*swig_normalize_get = *Math::LOESS::_swigc::loess_model_normalize_get;
*swig_normalize_set = *Math::LOESS::_swigc::loess_model_normalize_set;
*swig_parametric_get = *Math::LOESS::_swigc::loess_model_parametric_get;
*swig_parametric_set = *Math::LOESS::_swigc::loess_model_parametric_set;
*swig_drop_square_get = *Math::LOESS::_swigc::loess_model_drop_square_get;
*swig_drop_square_set = *Math::LOESS::_swigc::loess_model_drop_square_set;
*swig_family_get = *Math::LOESS::_swigc::loess_model_family_get;
*swig_family_set = *Math::LOESS::_swigc::loess_model_family_set;
sub new {
    my $pkg = shift;
    my $self = Math::LOESS::_swigc::new_loess_model(@_);
    bless $self, $pkg if defined($self);
}

sub DESTROY {
    return unless $_[0]->isa('HASH');
    my $self = tied(%{$_[0]});
    return unless defined $self;
    delete $ITERATORS{$self};
    if (exists $OWNER{$self}) {
        Math::LOESS::_swigc::delete_loess_model($self);
        delete $OWNER{$self};
    }
}

sub DISOWN {
    my $self = shift;
    my $ptr = tied(%$self);
    delete $OWNER{$ptr};
}

sub ACQUIRE {
    my $self = shift;
    my $ptr = tied(%$self);
    $OWNER{$ptr} = 1;
}


############# Class : Math::LOESS::_swig::loess_control ##############

package Math::LOESS::_swig::loess_control;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
@ISA = qw( Math::LOESS::_swig );
%OWNER = ();
%ITERATORS = ();
*swig_surface_get = *Math::LOESS::_swigc::loess_control_surface_get;
*swig_surface_set = *Math::LOESS::_swigc::loess_control_surface_set;
*swig_statistics_get = *Math::LOESS::_swigc::loess_control_statistics_get;
*swig_statistics_set = *Math::LOESS::_swigc::loess_control_statistics_set;
*swig_cell_get = *Math::LOESS::_swigc::loess_control_cell_get;
*swig_cell_set = *Math::LOESS::_swigc::loess_control_cell_set;
*swig_trace_hat_get = *Math::LOESS::_swigc::loess_control_trace_hat_get;
*swig_trace_hat_set = *Math::LOESS::_swigc::loess_control_trace_hat_set;
*swig_iterations_get = *Math::LOESS::_swigc::loess_control_iterations_get;
*swig_iterations_set = *Math::LOESS::_swigc::loess_control_iterations_set;
sub new {
    my $pkg = shift;
    my $self = Math::LOESS::_swigc::new_loess_control(@_);
    bless $self, $pkg if defined($self);
}

sub DESTROY {
    return unless $_[0]->isa('HASH');
    my $self = tied(%{$_[0]});
    return unless defined $self;
    delete $ITERATORS{$self};
    if (exists $OWNER{$self}) {
        Math::LOESS::_swigc::delete_loess_control($self);
        delete $OWNER{$self};
    }
}

sub DISOWN {
    my $self = shift;
    my $ptr = tied(%$self);
    delete $OWNER{$ptr};
}

sub ACQUIRE {
    my $self = shift;
    my $ptr = tied(%$self);
    $OWNER{$ptr} = 1;
}


############# Class : Math::LOESS::_swig::loess_kd_tree ##############

package Math::LOESS::_swig::loess_kd_tree;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
@ISA = qw( Math::LOESS::_swig );
%OWNER = ();
%ITERATORS = ();
*swig_parameter_get = *Math::LOESS::_swigc::loess_kd_tree_parameter_get;
*swig_parameter_set = *Math::LOESS::_swigc::loess_kd_tree_parameter_set;
*swig_a_get = *Math::LOESS::_swigc::loess_kd_tree_a_get;
*swig_a_set = *Math::LOESS::_swigc::loess_kd_tree_a_set;
*swig_xi_get = *Math::LOESS::_swigc::loess_kd_tree_xi_get;
*swig_xi_set = *Math::LOESS::_swigc::loess_kd_tree_xi_set;
*swig_vert_get = *Math::LOESS::_swigc::loess_kd_tree_vert_get;
*swig_vert_set = *Math::LOESS::_swigc::loess_kd_tree_vert_set;
*swig_vval_get = *Math::LOESS::_swigc::loess_kd_tree_vval_get;
*swig_vval_set = *Math::LOESS::_swigc::loess_kd_tree_vval_set;
sub new {
    my $pkg = shift;
    my $self = Math::LOESS::_swigc::new_loess_kd_tree(@_);
    bless $self, $pkg if defined($self);
}

sub DESTROY {
    return unless $_[0]->isa('HASH');
    my $self = tied(%{$_[0]});
    return unless defined $self;
    delete $ITERATORS{$self};
    if (exists $OWNER{$self}) {
        Math::LOESS::_swigc::delete_loess_kd_tree($self);