File Coverage

blib/lib/Const/Introspect/C/Constant.pm

Criterion	Covered	Total	%
statement	11	11	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	15	15	100.0

package Const::Introspect::C::Constant;

use 5.020;
use Moo;
use experimental qw( signatures );

# ABSTRACT: Class representing a C/C++ constant
our $VERSION = '0.01'; # VERSION


has c => (
  is       => 'ro',
  required => 1,
);


has name => (
  is       => 'ro',
  required => 1,
);


has raw_value => (
  is => 'ro',
);


has value => (
  is      => 'ro',
  lazy    => 1,
  default => sub ($self) {
    my $type = $self->type;
    $type eq 'other'
      ? undef
      : do {
        local $@ = '';
        my $value = eval { $self->c->compute_expression_value($type, $self->name) };
        # TODO: diagnostic on `fail`
        $@ ? undef : $value;
      };
  },
);


has type => (
  is       => 'ro',
  isa      => sub {
    die "type should be one of: string, int, long, pointer, float, double or other"
      unless $_[0] =~ /^(string|int|long|pointer|float|double|other)$/;
  },
  lazy     => 1,
  default  => sub ($self) {
    local $@ = '';
    my $type = eval { $self->c->compute_expression_type($self->name) };
    # TODO: diagnostic on `other`
    $@ ? 'other' : $type;
  },
);

no Moo;

1;

__END__