package NACL::CS::ComponentState::ZapiSkip;

# This is an object to put in a path value in the 'map' option to
# _zapi_hash_copy.  See _zapi_hash_copy in NACL::ComponentUtils.

use strict;
use warnings;

# The string form of a ZapiSkip object is the scalar it is a reference
# to (the 'name' given to make_zapi_skip).

use overload ('""' => sub { ${$_[0]} });

BEGIN {
  use Exporter qw(import);
  our @EXPORT_OK = qw(make_zapi_skip is_zapi_skip);
}

sub new {
    my ($class, $name) = @_;
    return bless(\$name,$class);
}

sub make_zapi_skip {
    my ($name) = @_;
    return NACL::CS::ComponentState::ZapiSkip->new($name);
}

sub is_zapi_skip {
    my ($obj) = @_;
    return UNIVERSAL::isa($obj,"NACL::CS::ComponentState::ZapiSkip");
}

1;