view release on metacpan or  search on metacpan

lib/App/Test/Generator/SchemaExtractor.pm  view on Meta::CPAN

=item * Returns true on success, false on failure

=item * Returns data on success, empty list on failure

=back

=head3 Success Indicator Detection

Methods that always return true (typically for side effects):

    sub update_status {
        my ($self, $status) = @_;
        $self->{status} = $status;
        return 1;  # Success indicator
    }

Sets C<_success_indicator> flag when method consistently returns 1.

=head3 Schema Output

Enhanced return analysis adds these fields to method schemas:

t/return.t  view on Meta::CPAN

	push @{$self->{items}}, $item;
	return;
}

sub log_message {
	my ($self, $msg) = @_;
	print STDERR $msg;
	return;
}

sub update_status {
	my ($self, $status) = @_;
	$self->{status} = $status;
	return 1;
}

END_MODULE

	my $extractor = create_extractor($module);
	my $schemas = $extractor->extract_all();