File Coverage

blib/lib/Sentry/SourceFileRegistry.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	3	4	75.0
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	40	42	95.2

package Sentry::SourceFileRegistry;
use Mojo::Base -base, -signatures;

use Mojo::File;
use Mojo::Util 'dumper';
use Sentry::Cache;
use Sentry::SourceFileRegistry::ContextLine;

has _cache => sub { Sentry::Cache->get_instance };

sub _get_cached_context_line ($self, $file) {
  if (!$self->_cache->exists($file)) {
    my $content = -e $file ? Mojo::File->new($file)->slurp : undef;

    my $context
      = Sentry::SourceFileRegistry::ContextLine->new(content => $content);

    $self->_cache->set($file, $context);
  }

  return $self->_cache->get($file);
}

sub get_context_lines ($self, $file, $line) {
  return $self->_get_cached_context_line($file)->get($line);
}

1;