view release on metacpan or  search on metacpan

lib/TM/Tau/Filter/Analyze.pm  view on Meta::CPAN

    my $self = shift;

#warn "ANALYZE store";
    my $ms = new TM::Store (psis => $TM::PSI::topicmaps); # BaseURI?
    # create topics for all of this
    foreach my $k (keys %{$self->{result}}) {
	foreach my $v (keys %{$self->{result}->{$k}}) {
	    $ms->assert ([undef, undef, 'isa',                 TM::Store->ASSOC,    [ 'class', 'instance' ],            [ $k, $v ] ]);
	    $ms->assert ([undef, undef, 'has-basename',        TM::Store->BASENAME, [ 'basename', 'thing' ],            [ \ 'AAA', $v ] ]);
	    $ms->assert ([undef, undef, 'has-data-occurrence', TM::Store->OCCDATA,  [ 'has-data-occurrence', 'thing' ], [ \ "$self->{result}->{$k}->{$v}" , $v ] ]);
	}
    }
#warn "ANALYZE store ". Dumper $ms;
    return $ms;
}

sub sync_out {
    my $self = shift;

#warn __PACKAGE__ . ": syncing out analyze";
    if ($self->{url} eq 'io:stdout') {
	use Data::Dumper;
	use TM::Utils;
	TM::Utils::put_content ($self->{url}, Dumper $self->{result});
    } elsif ($self->{url} eq 'io:stdin') {
	# nothing
    } elsif ($self->{url} eq 'null:') {
	# nothing
    } else {
	use TM::Utils;
	TM::Utils::put_content ($self->{url}, TM::Utils::xmlify_hash ($self->{result}));
    }
}

sub DESTROY {
    my $self = shift;
#warn __PACKAGE__ . ": DESTROY";
    $self->sync_out;
}


__END__

__DATA__

# Ontology

nr_toplets (measure)
bn: Nr of toplets
in: <some value>

nr_maplets (measure)
bn: Nr of maplets

nr_types (measure)

nr_assoc_types (measure)

nr_basename_types (measure)

nr_occdata_types (measure)

nr_occref_types (measure)

nr_scopes (measure)

map_size (measure)
in: <some value> in bytes