package SPVM::Bool {
  has val : ro int;
  
  sub new_true : SPVM::Bool () {
    
    my $self = new SPVM::Bool;
    
    $self->{val} = 1;
    
    return $self;
  }
  
  sub new_false : SPVM::Bool () {

    my $self = new SPVM::Bool;
    
    $self->{val} = 0;
    
    return $self;
  }
}
