Yet Another CPAN Grep

Insight-Scriptures ( L/LN/LNATION/Insight-Scriptures-0.04.tar.gz, LNATION, 2025; MetaCPAN )

Insight-Scriptures/lib/Insight/Scriptures.pm ( view source; MetaCPAN )

.04';
use JSON::Lines;
use JSON;

sub new {
	my ($pkg, $args) = @_;
	my $self = bless {
		scriptures => undef,
		scripture => undef,
		scripture_file => undef,
		index => -1,
		jsonl => JSON::Lines->n

ew(),	
		json => JSON->new->pretty(1)->canonical,
		directory => 'directory',
		%{ $args || {} },
	}, $pkg; 
	$self->{scriptures} = $self->directory($self->{directory});
	$self->scripture($self->{scri

lvage') {
				$self->$in();
				print qq|Scripture salvaged\n|;
			} else {
				my $enc = $self->{json}->encode($self->$in());
				print $self->{index} . ": " . $enc;
			}
		} elsif ($in =~ m/scriptur