sub new_from_scalar {
    my ($class, $scalar) = @_;
    return $class->new(\$scalar);
}