The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

YAPPO / Term-QRCode-0.01 / lib / Term / QRCode.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
—
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98

              
package Term::QRCode;
use strict;
use warnings;
our $VERSION = '0.01';
use Carp;
use Term::ANSIColor;
use Text::QRCode;
sub new {
    my($class, %args) = @_;
    bless {
        text_qrcode => Text::QRCode->new(delete $args{params} || +{}),
        white_text  => colored('  ', delete $args{white} || 'on_white'),
        black_text  => colored('  ', delete $args{black} || 'on_black'),
        %args,
    }, $class;
}
sub plot {
    my($self, $text) = @_;
    croak 'Not enough arguments for plot()' unless $text;
    my $arref = $self->{text_qrcode}->plot($text);
    $self->_add_blank($arref);
    $self->{stdoutbuf} = join "\n", map { join '', map { $_ eq '*' ? $self->{black_text} : $self->{white_text} } @$_ } @$arref;
}
sub _add_blank {
    my($self, $ref) = @_;
    unshift @$_, ' ' and push @$_, ' ' for @$ref;
    unshift @$ref, [(' ') x scalar @{$ref->[0]}];
    push    @$ref, [(' ') x scalar @{$ref->[0]}];
}
1;
__END__
=head1 NAME
Term::QRCode - Generate terminal base QR Code
=head1 SYNOPSIS
  use Term::QRCode;
  print Term::QRCode->new->plot('Some text here.') . "\n";
=head1 DESCRIPTION
Term::QRCode is allows you to generate QR Code for your terminal.
=head1 METHODS
=over 4
=item new
    $qrcode = Term::QRCode->new(%params);
The C<new()> constructor method instantiates a new Term::QRCode object.
    Term::QRCode->new(
        params => {}, # for Text::QRCode params
    );
=item plot($text)
    $text = $qrcode->plot("blah blah");
Create a QR Code text for terminal.
=back
=head1 AUTHOR
Kazuhiro Osawa E<lt>yappo <at> shibuya <döt> plE<gt>
=head1 ORIGINAL CODE
L<http://data.gyazo.com/1868c31229b41a11abd505b076fb7276.png> by nipotan
=head1 SEE ALSO
L<Text::QRCode>
=head1 REPOSITORY
  svn co http://svn.coderepos.org/share/lang/perl/Term-QRCode/trunk Term-QRCode
Term::QRCode is Subversion repository is hosted at L<http://coderepos.org/share/>.
patches and collaborators are welcome.
=head1 LICENSE
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut